Напишите программу в паскале:

Дано N чисел

Определить кол-во чисел=минимальному значению

Question

Информатика

Альба

17 сентября, 17:52

Напишите программу в паскале:

Дано N чисел

Определить кол-во чисел=минимальному значению

+2

Ответы (1)

Знаете ответ на вопрос?

Галка · Answer 1

var

n, k, i, min: integer;

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

begin

writeln ('vvel n') ;

read (n) ;

writeln (n) ;

k:=0;

for i:=1 to n do

read (a[i]) ;

min:=a[1];

for i:=1 to n do

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

writeln (k) ;

end.

Напишите программу в паскале:Дано N чиселОпределить кол-во чисел=минимальному значению

Напишите программу в паскале:

Дано N чисел

Определить кол-во чисел=минимальному значению