Поделитесь своими знаниями, ответьте на вопрос:
Составить программу 1)найти сумму всех элементов массива (1до10) random. 2)сформировать массив из положительных и отрицательных элементов от -10 до 30.найти кол-во положит и отриц элементов.найти сумму положит ипроизведение отриц.
var a: array[1..10] of integer;
i,s: integer;
begin
randomize;
for i: = 1 to 10 do begin
a[i]: = random(100);
s: =s+a[i];
end;
writeln(s);
end.
var a: array[1..10] of integer;
i,mk,pk,s,p: integer;
begin
randomize;
p: =1;
for i: = 1 to 10 do begin
a[i]: = random(30+10)-10;
if a[i]> =0 then begin
pk: =pk+1;
s: =s+a[i];
end
else begin
mk: =mk+1;
p: =p*a[i];
end;
end;
writeln(pk,s,mk,p);
end.