Дан массив целого типа заполненный случайными числами целого типа. Посчитать количество...

Question

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

Answer 1

Ну, как-то так:
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);

Comments

что за "max"? типа "imax"?

---

max - переменная

---

мы её не проходили ещё, можно ли её заменить?

---

max это var max: integer;