Составьте программу , которая формирует массив из шестнадцати случайных целых чисел от -20 до 20 и подсчитывает количество отрицательных элементов. язык Pascal abc
Составьте программу , которая формирует массив из шестнадцати случайных целых чисел от -20 до 20
и подсчитывает количество отрицательных элементов.
язык Pascal abc
Гость
Ответ(ы) на вопрос:
Гостьvar
a : array [1..16] of integer;
i, c : integer;
begin
randomize;
for i := 1 to 16 do
a[i] := random (41) - 20;
c := 0;
for i := 1 to 16 do
if a[i] < 0 then c := c + 1;
writeln (c);
end.
Не нашли ответ?
Похожие вопросы