Var
a : char;
b : integer;
begin
readln(a);
b := ord(a);
writeln(chr(b+1), chr(b+2))
end.
Ошибка тут: program Random;
Или переименуйте или вообще уберите эту строку.
Написал на паскале
const N = 12;
var i, sum:integer;
average:real;
A:array[1..N] of integer;
begin
for i:=1 to N do begin
A[i]:=random(101);
sum:=A[i]+sum;
write(A[i], ' ');
end;
writeln();
average:=sum/N;
for i:=1 to N do begin
if A[i] > average then
writeln(A[i]);
end;
end.
1) 2*2=4 - способа существует для покраски ёлок