Меню сайта

Задача №21
Дан целочисленный массив из 30 элементов. Найти количество элементов, равных максимальному.
Program mas_21-
const n=30-
var a:array[1..n] of integer-
— — max, k, i: integer-
begin
— for i:=1 to n do —
begin
writeln(‘ўўҐ¤ЁвҐ’,i,’н«Ґ¬Ґ­в’)-
readln(a[i])-
end-
— k:=1-
— max:=a[1]-
— for i:=2 to n do begin
— — if a[i]=max then k:=k+1-
— — if a[i]&gt-max then begin
— — — max:=a[i]-
— — — k:=1-
— — end
— end-
— writeln(‘Кол. эл. равных max=’,k)-
Readln-
end.
Категория: Массивы | Дата: 20.12.12

Меню раздела
Блок