Дан массив. Подсчитайте количество элементов массива, равных минимальному. (Массив из N, где N не более 100) (Паскаль)
Ответы
Ответ дал:
0
Var
A:array[1..100] of integer;
N,Min,k:integer;
Begin
Randomize;
Write('N = ');
ReadLn(N);
Write('Исходный массив:');
For N:= 1 to N do
Begin
A[N]:=random(21)-10;
Write(' ',A[N]);
End;
Min:=A[1];
For N:= 2 to N do
if A[N] < Min then Min:=A[N];
k:=0;
For N:= 1 to N do
if A[N] = Min then k:=k+1;
WriteLn;
WriteLn('Min = ',Min);
Write('kMin = ',k);
End.
A:array[1..100] of integer;
N,Min,k:integer;
Begin
Randomize;
Write('N = ');
ReadLn(N);
Write('Исходный массив:');
For N:= 1 to N do
Begin
A[N]:=random(21)-10;
Write(' ',A[N]);
End;
Min:=A[1];
For N:= 2 to N do
if A[N] < Min then Min:=A[N];
k:=0;
For N:= 1 to N do
if A[N] = Min then k:=k+1;
WriteLn;
WriteLn('Min = ',Min);
Write('kMin = ',k);
End.
Вас заинтересует
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад