Quote (fool)
1. Опишите в паскале алгоритм подсчета числа элементов, равных максимальному, в числовом массиве из 30 элементов.
var
a:array[1..30]of integer;
i,max,k:integer;
begin
max:=low(max);
for i:=1 to 30 do begin
read(a[i]);
if a[i]>max then max:=a[i];end;
for i:=1 to 30 do
if a[i]=max then k:=k+1;
writeln(k);
end.
Второго задания не понял, что сделать нужно?
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо