Пожалуйста сделайте в Паскале задание лёгкое, но постоянно ошибка:
"Дан массив из 5 чисел, найти количество элементов которые равны минимуму."

1

Ответы и объяснения

2014-04-14T18:53:11+00:00
Pascal kol-vo_min;
const n=5;
var a:array[1..n]of integer;
i,min,kmin:index.
begin
min=0;
for i:=1 to n do begin a[i]:=random(100);
write(a[i],' : ');
if min>a[i] then min:=a[i];
end;
kmin;
for i:=1 to n do if a[i]=min then inc(kmin);
writeln(kmin);
readln();
end.