Предмет: Информатика,
автор: барабанов
помогите решить задания в программе паскаль:
1) вычислить произхведение сумм положительных и отрицательных элементов целочисленного массива а[1...10].
Ответы
Автор ответа:
0
program ms;
uses crt;
var a:array [1..10] of integer;
l,k,s,i:longint;
begin
clrscr;
writeln('Введите 10 элементов массива');
for i:=1 to 10 do
begin
readln(a[i]);
if a[i]<0 then l:=l+a[i];
if a[i]>0 then k:=k+a[i];
end;
s:=l*k;
writeln(s);
readkey;
end.
Похожие вопросы
Предмет: Литература,
автор: nastagnatiuk49
Предмет: История,
автор: ayanbazargalii15
Предмет: Физика,
автор: romanr965103
Предмет: Алгебра,
автор: yliaIgalko
Предмет: Геометрия,
автор: olgamubarakova