Question

1)написать программу я которая генерирует двузначное число, цифры которого различны 2)Напишите программу, чтобы определить 3 жарких дня июля​

Answer 1

Ответ:

Ок

Объяснение:

2 )Program ten;
var
t:array[1..31] of integer;
i,max,max2,max3:integer;
begin
Randomize;
Writeln('Температуры июля');
max:=0; max2:=0; max3:=0;
for i:=1 to 31 do begin
t[i]:=Random(22)+18;
Write(t[i],' ');
if t[i]>max then begin max2:=max; max:=t[i] end
else
if t[i]>max2 then max2:=t[i]
if t[i] >max3 then max3:=t[i]
end;
Writeln;
Writeln('Температуры трехтрех самых теплых дней: ',max,', ',max2, 'max3')
end.