CРОЧНО!!!!дан массив состоящий из 10 целых чисел требуется найти количество элементов массива равных максимальному элементу и выписать их индексы
Answers & Comments
leon123
A:Array[1..10] of Integer; Begin for i:=1 to 10 do begin Read(A[i]); end; max:=A[1]; for i:=1 to 10 do if (A[i]>max) then max:=A[i]; for i:=1 to 10 do if (A[i]=max) then begin Inc(k); Writeln('index = ',i); end; Writeln('Kol-vo = ',k); end.
Answers & Comments
Begin
for i:=1 to 10 do
begin
Read(A[i]);
end;
max:=A[1];
for i:=1 to 10 do
if (A[i]>max) then max:=A[i];
for i:=1 to 10 do
if (A[i]=max) then
begin
Inc(k);
Writeln('index = ',i);
end;
Writeln('Kol-vo = ',k);
end.