Program ex;uses crt;var N, count, sum: integer;
begin N:= 1; count:= 1; while not(N = 0) do begin read(N); if N mod 2 = 0 then begin sum:= sum + N; count:=count + 1; end; end; writeln('sum = ',sum); writeln('sr. arefm. = ',sum/count);end.
Uses crt;
const n=12;
var m:array[1..n] of integer;
k,s,i:integer;
begin
randomize;
for i:=1 to n do
begin
m[i]:=random(9)+1;
writeln(m[i]);
if m[i] mod 2<>0 then begin inc(k); s:=s+m[i]; end;
end;
writeln;
writeln(k);
writeln(s);
end.
Program ez;
var a,b: real;
begin
read(a,b);
a:= a/2;
b:=b+30;
writeln(a);
writeln(b);
end.
Если что-то не так пиши
Readln как и read вводит переменную командой read (x); также и readln (x); но перед этим надо в var внести переменную x
Задача очевидная и очень простая.