rusikov972

01.11.2021 09:47 •  Информатика

Втаблице dat хранятся данные ежедневных измерений температуры морской воды (dat[1] − температура в понедельник, dat[2] − во вторник и т. определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования.

алгоритмический язык

алг

нач

целтаб dat[1: 7]

цел k, day

dat[1] : = 19; dat[2] : = 21

dat[3] : = 20; dat[4] : = 23

dat[5] : = 24; dat[6] : = 25

dat[7] : = 23

day : = dat[1]

нц для k от 1 до 7

если dat[k] > day то

day : = dat[k]

все

кц

вывод day

кон

бейсик

паскаль

dim dat(7) as integer

dim k, day as integer

dat(1) = 19: dat(2) = 21

dat(3) = 20: dat(4) = 23

dat(5) = 24: dat(6) = 25

dat(7) = 23

day = dat(1)

for k = 1 to 7

if dat(k) > day then

day = dat(k)

end if

next k

print day

end

var

dat: array[1..7] of integer;

k, day: integer;

begin

dat[1] : = 19; dat[2] : = 21;

dat[3] : = 20; dat[4] : = 23;

dat[5] : = 24; dat[6] : = 25;

dat[7] : = 23;

day : = dat[1];

for k : = 1 to 7 do

if dat[k] > day then

day : = dat[k];

writeln(day);

end.