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

Дан массив B,состоящий из 7 частей (-7,1,8,-4,1,6,-5).Отыскать творенье отрицательных частей массива.

Задать свой вопрос
1 ответ
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]lt;0 then s:=s+a[i];
end;
writeln;
writeln (s);
end.
Teknedzhjan Zlata
а в условии if ...... s:=s*a[i]
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт