Var
a, b: integer;
procedure Max(a, b: integer);
begin
if(a > b) then write(a)
else write(b);
end;
begin
read(a, b);
Max(a, b);
end.
Пере 'удача . То что в голову пришло)
Var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.
Например:
Звезда это О, их свойства это С
в О название звезды, в С удаленность от солнца, масса