Найти номера всех элементов с минимальными значениями. вывести кол-во таких элементов (паскаль)

Question

Информатика

Сашуня

13 марта, 22:18

Найти номера всех элементов с минимальными значениями. вывести кол-во таких элементов (паскаль)

+2

Ответы (1)

Знаете ответ?

Семен · Answer 1

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]
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