Предмет: Информатика,
автор: dianaorlova352
1)написать программу я которая генерирует двузначное число, цифры которого различны 2)Напишите программу, чтобы определить 3 жарких дня июля
Ответы
Автор ответа:
0
Ответ:
Ок
Объяснение:
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.
Похожие вопросы
Предмет: Русский язык,
автор: Аноним
Предмет: Русский язык,
автор: лидок2
Предмет: Русский язык,
автор: Ника1532
Предмет: Математика,
автор: matama2didyla
Предмет: Русский язык,
автор: Аноним