помогите дам 50 банкетов с решением В таблице Dat хранятся данные

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

Паскаль
var
Dat: array[1..7] of integer;
k, day: integer;
begin
Dat[1] := 9; Dat[2] := 11;
Dat[3] := 10; Dat[4] := 13;
Dat[5] := 8; Dat[6] := 5;
Dat[7] := 11;
day := 0;
for k := 1 to 7 do
if Dat[k] lt;= 10 then
day := day + 1;
writeln(day);
end.



54D39c
________________________________________




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

Паскаль
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] gt; day then
day := Dat[k];
writeln(day);
end.



c06AeB
________________________________________

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

Паскаль
var k, m: integer;
Ani: array[1..12] of integer;
begin
Ani[1] := 17; Ani[2] := 17;
Ani[3] := 19; Ani[4] := 21;
Ani[5] := 23; Ani[6] := 22;
Ani[7] := 24; Ani[8] := 16;
Ani[9] := 19; Ani[10] := 21;
Ani[11] := 17; Ani[12] :=17;
m := 0;
for k := 1 to 12 do
if Ani[k] = 17 then
m := m + Ani[k];
writeln(m);
end.



cB4A04
________________________________________