Ребяят, помогите с заданием по информатике. Нужно решить в паскале и желательно с блок...

Question

Ребяят, помогите с заданием по информатике. Нужно решить в паскале и желательно с блок схемой. Заранее спасибо

Дан массив из 8 чисел. Найти значение максимального элемента. Если таких элементов несколько, то определить, сколько их.

Answer 1

Var
i, count, max: integer;
a: array [1..8] of integer;
begin
for i := 1 to 8 do
read(a[i]);
max := a[1];
for i := 2 to 8 do
if a[i] > max then
max := a[i];
count := 0;
for i := 1 to 8 do
if a[i] = max then
inc(count);
if count = 1 then
writeln(max)
else
writeln(count);
end.