Регистрация
checknutaya
09.12.2022 08:54
Информатика
Есть ответ 👍

Выполнить все задания в Паскале.

221
483
Посмотреть ответы 1

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

iphoneX10
iphoneX10
4,5(35 оценок)

var a: array of integer;

i,n,k: integer;

begin

write('введите количество элементов массива: ');

readln (n);

a: =new integer[n];

write ('массив: ');

for i: =0 to n-1 do

begin

a[i]: =random(199)-99;

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

write (a[i]: 5);

end;

writeln;

write ('количество отрицательных элементов ',k)

end.

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