дан одномерный массив Определить сколько раз встречается минимальное число?
решить в паскале
Ответы на вопрос
Ответил vuyeyijis
0
Ответ:
var a:array [1..100] of integer;
n,i,k,j:integer;
begin
write('Введите количество чисел: '); readln(n);
for i:=1 to n do begin
write('от',i,'до: '); readln(a[i]);
end;
k:=a[1];
for i:=2 to n do if a[i]<k then k:=a[i];
for i:=1 to n do if a[i]=k then j:=j+1;
writeln('наибольшая последовательность минимума = ',j);
end.
Новые вопросы
Русский язык,
1 год назад
Алгебра,
7 лет назад
Алгебра,
7 лет назад
Физика,
8 лет назад
Математика,
8 лет назад