Var a: array [1..10] of integer; i, s: integer; begin for i:=1 to 10 do begin a[i]:=random(36)+10; writeln('a[', i, '] = ', a[i]); end; for i:=2 to 10 do if (a[i] mod 2 = 0) and (a[i-1] mod 2 = 0) then s:=s+1; writeln('Число соседних четных пар: ', s); end.
program z1; var n,m:integer; rost,nine_a,nine_b:real; begin write('Введите количество учинеков 9а класса: '); readln(n); write('Введите количество учинеков 9б класса: '); readln(m); writeln('Вводите рост каждого из учинеков 9а по очереди'); for i:integer :=1 to n do begin write(i,': '); read(rost); nine_a:=nine_a+rost; end; nine_a:=nine_a/n; // средний рост 9а writeln('Вводите рост каждого из учинеков 9б по очереди'); for i:integer :=1 to m do begin write(i,': '); read(rost); nine_b:=nine_b+rost;end; nine_b:=nine_b/n; // средний рост 9б if nine_a > nine_b then write('Средний рост учеников 9а больше.') else if nine_a < nine_b then write('Средний рост учеников 9б больше.') else write('Средний рост учеников 9а равен среднему росту учеников 9б.'); end.
a: array [1..10] of integer;
i, s: integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(36)+10;
writeln('a[', i, '] = ', a[i]);
end;
for i:=2 to 10 do
if (a[i] mod 2 = 0) and (a[i-1] mod 2 = 0) then s:=s+1;
writeln('Число соседних четных пар: ', s);
end.