Ответ:
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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
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.