Ответ учителя по предмету Информатика
Const
K = 33;
Var
A:array[1..K] of integer;
i,m,n:integer;
Begin
For i:= 1 to K do
Begin
A[i]:=random(21)-10;
Write(A[i],’ ‘);
End;
WriteLn;
m:=A[1];
n:=0;
For i:= 2 to K do
if A[i]<m then m:=A[i];
For i:= 1 to K do
if A[i]=m then n:=n+1;
WriteLn(‘Количество минимальных элементов: ‘,n);
Write(‘Номера минимальных элементов: ‘);
For i:= 1 to K do
if A[i]=m then Write(i,’ ‘)
End.
Пример:
5 0 5 -5 -5 -4 -7 -9 9 8 -4 6 -4 -9 2 -5 -9 4 6 -8 -4 -1 1 -8 -8 -3 -4 2 -9 1 5 -4 -2
Количество минимальных элементов: 4
Номера минимальных элементов: 8 14 17 29
Похожие вопросы от пользователей
Is there such an organization in Kazakhstan?
What does it do in Kazakhstan?
Where is the office of the British Council located?
Is it the only international organization in Kazakhstan?