Дан массив b,состоящий из 7 элементов (-7,1,8,-4,1,6,-5).найти произведение отрицательных элементов массива.

aaadia aaadia    3   04.06.2019 00:30    0

Ответы
lenyanikiforovp07x7k lenyanikiforovp07x7k  01.10.2020 19:00
Uses crt;
Var a:array [1..7] of integer;
i,s:integer;
begin
for i:=1 to 7 do
readln (a[i]);
clrscr;
for i:=1 to 7 do begin
write (a[i]:4);
if a[i]<0 then s:=s+a[i];
end;
writeln;
writeln (s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика