Дан целочисленный массив из 7 элементов, в котором - вопрос №146734107 от DakotaDp 23.02.2023 01:48

Question

Информатика: Дан целочисленный массив из 7 элементов, в котором записаны значения температуры воздуха за неделю. Элементы массива могут принимать значения от (–10) до 0. Составьте программу, которая подсчитывает и выводит номер дня недели, когда температура была максимальной.

DakotaDp · Answer

var

temp:array [1..7] of shortint;

i,max:byte;

begin

randomize;

for i:=1 to 7 do temp[i]:=random(10)-10;

max:=1;

for i:=2 to 7 do if temp[i]>temp[max] then max:=i;

writeln(max);

end.