Регистрация
kgrintsewi4
07.03.2021 17:03
Информатика
Есть ответ 👍

Конспект компьютерные объекты​

244
325
Посмотреть ответы 1

Ответы на вопрос:

ксения1361
ксения1361
4,5(49 оценок)

var

a: array[1..100] of integer;

x,i,n,min: integer;

begin

readln(n);

x: =1;

read(a[1]);

min: =a[1];

for i: =2 to n do

begin

read(a[i]);

if a[i]

begin

min: =a[i];

x: =1

end;

if a[i]=min then x: =x+1;

end;

writeln(x)

end.

комментарий: n- количество элементов массива, вводится с клавиатуры в диапазоне от 1 до 100

Популярно: Информатика