Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и определить количество отрицательных чисел в массиве
Ответы на вопрос
Ответил 13nisa13
0
const n=10;
var a:array[1..n] of integer;
i,k: integer;
begin
for i:=1 to n do
begin
a[i]:=random(21)-10;
if a[i]<0 then k:=k+1;
write(a[i]:5)
end;
writeln;
writeln (k)
end.
Новые вопросы
Русский язык,
1 год назад
Русский язык,
1 год назад
Биология,
7 лет назад
Биология,
7 лет назад
Математика,
8 лет назад