Ответ получается слишком большой.
const a=15;
type ma=array[1..a] of longint;
var mas:ma;
rez,i:longint;
begin
rez:=1;
for I:=1 to a do
begin
mas[i]:=I*4;
write(mas[i]:4);
end;
for i:=1 to a do
begin
if mas[i] mod 2 = 0 then
rez:=rez* mas[i];
end;
writeln;
writeln('Результат:',rez);
end.
Const
n = 200;
var
a: array[1..n] of integer;
i, s: integer;
begin
Randomize;
Writeln('Элементы массива, кратные трем:');
s := 0;
for i := 1 to n do
begin
a[i] := Random(301)-150;
if (a[i] mod 3)=0 then Write(a[i],' ');
if a[i]>0 then s:=s+a[i]
end;
Writeln;
Writeln('Сумма положительных элементов равна ',s)
end.
<u><em>Тестовое решение:</em></u>
Элементы массива, кратные трем:
-144 27 -15 135 129 -114 33 66 -15 135 -3 105 -129 -6 -60 21 -108 -78 -123 93 -51 -60 -120 27 129 -33 -30 -66 -39 6 51 141 -75 -30 48 -90 87 -39 18 -45 144 -120 75 -111 6 72 -42 114 -27 120 -144 -120 96 135 -24 -9 141 -93 111 15
Сумма положительных элементов равна 7980
Повторить 200 - внешний.
идти 5 шагов - вложенный.
если край,то оттолкнуться - вложенный.
ждать три секунды - вложенный.
4) Сенсорный экран является и устройством ввода и устройством вывода одновременно.