Var a, n, i, s : integer;
begin
read (n);
for i:=1 to n do
begin
read (a);
s:=s+a;
end;
write (s);
end.
В последовательном соединении
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
<span>from random import randint
n = int(input('Размер массива: '))
a = [randint(-15, 15) for i in range(n)]
print('Исходный массив:', *a)
b = [i for i in a if i % 2 == 0 and i > 0]
if len(b) == 0:
print('Нет четных положительных элементов')
else:
print('Максимальный из четных положительных =', max(b), 'минимальный =', min(b))</span>
2 про диаграмму и 4 еще похоже на правильное
Если масив заполнить нужно рандомно:
program wk;
var i,s:integer;mas:array [1..10] of integer;
begin
s:=0;
for i:=1 to 10 do
begin
mas[i]:=random(21)-20;
if mas[i] mod 2=0 then s:=s+mas[i];
end;
writeln('S=',s)
end.
Если масив заполняется с клавиатуры:
program wk;
var i,s:integer;mas:array [1..10] of integer;
begin
s:=0;
for i:=1 to 10 do
begin
readln(mas[i]);
if (mas[i] mod 2)=0 then s:=s+mas[i];
end;
writeln('S=',s)
end.