var
a:array [1..20] of integer;
s,i:integer;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(101)+100;
write (a[i],' ');
end;
writeln;
s:=0;
for i:=1 to 20 do
if odd(a[i])=false then s:=s+a[i];
writeln (s);
readln;
end.
Program z1;
var a,b,c,d,e:integer;
begin
Writeln('Введите числа: ');
Write('Первое число (a): '); read(a);
Write('Второе число(b): '); read(b);
if (a mod 2=0) then c:=a;
if (b mod 2=0) then d:=b;
if (a mod 2=0) or (b mod 2=0) then Writeln('Среди введённых чисел присутствует чётное число')
else Writeln('Среди введённых чисел нет чётных чисел');
if (c=a) then Writeln('Чётное число: ',c);
if (d=b) then Writeln('Чётное число: ',d);
end.
Ответ:
Привет можешь перефотать а то не видно?
как то так:
b=15
a=9
===========================================