1) В целочисленном массиве М размера 9 определить
сумму элементов и номера положительных
элементов.

2)В целочисленном массиве А размера 7 найти сумму
элементов, значение которых больше 3.Распечатать все элементы, имеющие нечетные номера.

МАССИВЫ!
11 класс

Задача 1
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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.