1) в целочисленном массиве м размера 9 определить сумму элементов и номера положительных элементов. 2)в целочисленном массиве а размера 7 найти сумму элементов, значение которых больше 3.распечатать все элементы, имеющие нечетные номера. массивы! 11 класс
var
M: array [1..9] of integer;
sum, i: integer;
begin
writeln('Massiv:');
Randomize;
for i:=1 to 9 do
begin
M[i]:=random(200)-100;
write(M[i], ' ');
end;
writeln;
for i:=1 to 9 do
begin
if M[i] > 0 then write(i, ' ');
sum:=sum+M[i];
end;
writeln;
writeln('Summa = ', sum);
readln;
end.
задача 2
var
A: array [1..7] of integer;
sum, i: integer;
begin
writeln('Massiv:');
Randomize;
for i:=1 to 7 do
begin
A[i]:=random(20)-10;
write(A[i], ' ');
end;
writeln;
for i:=1 to 7 do
begin
if A[i] > 3 then sum:=sum+A[i];
if i mod 2 <> 0 then write(A[i], ' ');
end;
writeln;
writeln('Summa = ', sum);
readln;
end.