Информатика Архивный вопрос

Дан массив целого типа заполненный случайными числами целого типа.
Посчитать количество максимальных чисел в массиве.
Напишите пожалуйста программу на уровне 9 класса, желательно с блок схемой
Заранее огромное спасибо))

Нет комментариев

Ответы

Гость

Ну, как-то так:
max:=a[1,1];
for j:=1 to n do
  for i:=1 to n do 
    if a[i,j]>max then 
      max:=a[i,j];
      k:=0;
for i:=1 to n do
  for j:=1 to n do 
    if a[i,j]=max then 
      inc(k);
      Writeln('Max ',max);
      Writeln('Sum ',k);

4 комментария:
что за "max"? типа "imax"?
max - переменная
мы её не проходили ещё, можно ли её заменить?
max это var max: integer;

Похожие вопросы