Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Найти и вывести на экран сумму нечётных элементов массива и количество отрицательных. Паскаль

Ответ оставил Гость

program z8;
uses crt;
var a:array[1..259] of shortint;
i,k,n:byte;
s:integer;
begin
clrscr;
randomize;
write(Vvedi razmernost massiva=);
readln(n);
for i:=1 to n do begin
a[i]:=random(100--100+1)+-100;
write(a[i]:4);
if a[i]<0 then
s:=s+a[i];
if odd(a[i]) then
k:=k+1;
end;
writeln;
writeln(Сумма отрицательных элементов равна ,s);
writeln(Кол-во нечётных элементов равно ,k);
readkey
end.