1).В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на пяти языках программирования. Паскаль
Var k, m: integer;Dat: array[1..10] ofinteger;BeginDat[1] := 12; Dat[2] := 15;Dat[3] := 17; Dat[4] := 15;Dat[5] := 14; Dat[6] := 12;Dat[7] := 10; Dat[8] := 13;Dat[9] := 14; Dat[10] := 15;m := 0;fork := 1to10doifDat[k]=15thenbeginm := m + 1;end;writeln(m);End.
2). В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на пяти языках программирования.
Vark,m:integer;
Dat:array[1..10]ofinteger;
Begin
Dat[1]:=2;Dat[2]:=5;
Dat[3]:=8;Dat[4]:=5;
Dat[5]:=4;Dat[6]:=2;
Dat[7]:=0;Dat[8]:=3;
Dat[9]:=4;Dat[10]:=5;
m :=0;
fork :=1to10do
ifDat[k]> m thenbegin
m :=Dat[k];
end;
writeln(m);
End.
3). В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя, Dat[2] — за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на пяти языках программирования.
Vark,m:integer;
Dat:array[1..10]ofinteger;
Begin
Dat[1]:=16;Dat[2]:=20;
Dat[3]:=20;Dat[4]:=41;
Dat[5]:=14;Dat[6]:=21;
Dat[7]:=28;Dat[8]:=11;
Dat[9]:=15;Dat[10]:=35;
m :=50;
fork :=1to10do
ifDat[k]< m then
begin
m :=Dat[k];
end;
writeln(m);
End.
4). В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя, Dat[2] — за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на пяти языках программирования.
Vark,m:integer;
Dat:array[1..10]ofinteger;
Begin
Dat[1]:=16;Dat[2]:=20;
Dat[3]:=20;Dat[4]:=41;
Dat[5]:=14;Dat[6]:=21;
Dat[7]:=28;Dat[8]:=12;
Dat[9]:=15;Dat[10]:=35;
m :=0;
fork :=1to10do
ifDat[k]> m then
begin
m :=Dat[k];
end;
writeln(m);
End.
5). В таблице Dat хранятся данные о количестве сделанных заданий учениками (Dat[1] заданий сделал первый ученик, Dat[2] — второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на пяти языках программирования.
Vark,m,n:integer;
Dat:array[1..10]ofinteger;
Begin
Dat[1]:=7;Dat[2]:=9;
Dat[3]:=10;Dat[4]:=5;
Dat[5]:=6;Dat[6]:=7;
Dat[7]:=9;Dat[8]:=8;
Dat[9]:=6;Dat[10]:=9;
m :=10;
n :=0;
fork :=1to10do
ifDat[k]< m then
begin
m :=Dat[k];
n := k;
end;
writeln(n);
End.
6). В таблице Dat хранятся данные о количестве учеников в классах (Dat[1] — количество учеников в первом классе, Dat[2] — во втором и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на пяти языках программирования.
Vark,m:integer;
Dat:array[1..11]ofinteger;
Begin
Dat[1]:=20;Dat[2]:=27;
Dat[3]:=19;Dat[4]:=28;
Dat[5]:=26;Dat[6]:=22;
Dat[7]:=24;Dat[8]:=28;
Dat[9]:=26;Dat[10]:=21;
Dat[11]:=27;
m :=0;
fork :=1to11do
ifDat[k]<25then
begin
m :=Dat[k];
end;
writeln(m);
End.
