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.
115
154
Ответы на вопрос:
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
2073607.04.2023 01:35
-
DANIKom20.06.2021 19:48
-
лиза269809.04.2021 09:30
-
avatar78945612316.06.2021 05:54
-
gasisivlasova07.10.2020 20:14
-
dunina201802.12.2020 00:14
-
Алексей2289111.12.2021 04:26
-
Рапунцель0618.02.2020 18:25
-
Маракуйя200210.07.2020 03:08
-
danadv08.07.2022 13:18
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.