CРОЧНО!!!!дан массив состоящий из 10 целых чисел требуется найти количество элементов массива равных максимальному элементу и выписать их индексы
CРОЧНО!!!!дан массив состоящий из 10 целых чисел требуется найти количество элементов массива равных максимальному элементу и выписать их индексы
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы