При определении суммы элементов числового массива нужна следующая строка ...

При определении произведения элементов числового массива нужна следующая строка ...

Что может содержать в себе ячейка массива?

Одномерный массив - это ...

Для чего производится описание массивов?

Назначение массивов?

Что в переводе означает слово ARRAY?

Где описываются одномерные массивы?

Как производятся все действия над одномерными массивами?

Какая запись является правильной?

В таблице Dat хранятся данные о количестве учеников в классах (Dat[1] – количество учеников в первом классе, Dat[2] – во втором и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.
Var k, m: integer;
Dat: array[1..11] of integer;
Begin
Dat[1] := 20; Dat[2] := 25;
Dat[3] := 19; Dat[4] := 25;
Dat[5] := 26; Dat[6] := 22;
Dat[7] := 24; Dat[8] := 28;
Dat[9] := 26; Dat[10] := 21;
Dat[11] := 27;
m := 0;
for k := 1 to 11 do
if Dat[k] < 25 then
begin
m := m + 1
end;
writeln(m)
End.

В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.
Var k, m: integer;
Dat: array[1..10] of integer;
Begin
Dat[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 := 20;
for k := 1 to 10 do
if Dat[k] < m then
begin
m := Dat[k]
end;
writeln(m);
End.

Школьница делала лабораторную работу по физике, в ходе которой измерила 10 раз силу тока и записала показания амперметра в таблицу Tok (Tok[1] — результат первого измерения, Tok[2] — второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.
Var k, m: integer;
Tok: array[1..10] of integer;
Begin
Tok[1] := 10; Tok[2] := 14;
Tok[3] := 15; Tok[4] := 4;
Tok[5] := 12; Tok[6] := 6;
Tok[7] := 3; Tok[8] := 5;
Tok[9] := 5; Tok[10] := 10;
m := 0;
For k := 1 to 10 Do
If Tok[k] > 6 Then
Begin
m := m + 2;
End;
Writeln(m);
End.

В таблице A хранятся данные о количестве призёров олимпиады по программированию по девяти округам Москвы. Определите, что будет напечатано в результате выполнения следующего алгоритма.
var k, score: integer;
A: array[1..9] of integer;
begin
A[1]:=6; A[2]:=11;
A[3]:=7; A[4]:=12;
A[5]:=13; A[6]:=5;
A[7]:=9; A[8]:=3;
A[9]:=4;
score:= 0;
for k:=1 to 9 do
begin
if A[k] >= 9 then
score:= score+A[k];
end;
write(score);
end.

Садовник, работая в оранжерее ботанического сада, записывал в таблицу Flow количество видов растений, цветущих в текущем месяце. (Flow[1] — количество цветущих растений в январе, Flow[2] – в феврале и т. д.).
Определите, какое число будет напечатано в результате работы следующей программы.
Var k, m: integer;
Flow: array[1..12] of integer;
Begin
Flow[1] := 25; Flow[2] := 33;
Flow[3] := 45; Flow[4] := 56;
Flow[5] := 78; Flow[6] := 112;
Flow[7] := 120; Flow[8] := 133;
Flow[9] := 97; Flow[10] := 77;
Flow[11] := 59; Flow[12] := 34;
m := 35;
For k := 1 to 12 Do
If Flow[k] > 100 Then
Begin
m := m + 1;
End;
Writeln(m);
End.

Владелец крупного яблоневого сада в течение 12 лет записывал в таблицу App количество собранного урожая. (App[1] — количество тонн яблок, собранных за первый год, App[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.
Var k, m: integer;
App: array[1..12] of integer;
Begin
App[1] := 100; App[2] := 128;
App[3] := 80; App[4] := 99;
App[5] := 120; App[6] := 69;
App[7] := 55; App[8] := 115;
App[9] := 84; App[10] := 111;
App[11] := 59; App[12] := 100;
m := 0;
For k := 1 to 12 Do
If App[k] > 100 Then
Begin
m := m + 1;
End;
m : = m + 10;
Writeln(m);
End.

В таблице Ves хранятся данные о весе в килограммах по группе учащихся спортивной школы (Ves[1] — вес первого учащегося, Ves[2] — вес второго учащегося и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма.
Var i, n: integer;
Ves: array[1..14] of integer;
Begin
Ves[1]:= 25; Ves[2]:= 21;
Ves[3]:= 23; Ves[4]:= 28;
Ves[5]:= 30; Ves[6]:= 25;
Ves[7]:= 31; Ves[8]:= 28;
Ves[9]:= 25; Ves[10]:= 28;
Ves[11]:= 30; Ves[12]:= 27;
Ves[13]:= 26; Ves[14]:= 24;
n := 0;
For i := 1 to 14 Do
If Ves[i] > 26 Then
Begin
n : = n + 1;
End;
Writeln(n);
End.

В таблице Dat хранятся данные о количестве самолётов, отправляющихся из аэропорта города на юг в первой декаде августа (Dat[1] — количество самолётов первого числа, Dat[2] — количество самолётов второго числа и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма
Var k, m, day: integer;
Dat: array[1...10] of integer;
Begin
Dat[1] := 2;
Dat[2] := 2;
Dat[3] := 3;
Dat[4] := 3;
Dat[5] := 4;
Dat[6] := 4;
Dat[7] := 5;
Dat[8] := 5;
Dat[9] := 6;
Dat[10]:= 6;
day:=1; m := Dat[1];
for k :=2 to10 do
if Dat[k] >= m then
begin
m:= Dat[k];
day := k;
end;
write(day);
End.

В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя, Dat[2] — за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.
Var k, m: integer;
Dat: array[1...10] of integer;
Begin
Dat[1]:= 56; Dat[2]:= 70;
Dat[3]:= 20; Dat[4]:= 41;
Dat[5]:= 14; Dat[6]:= 22;
Dat[7]:= 30; Dat[8]:= 12;
Dat[9]:= 65; Dat[10]:= 35;
m := 0;
for k :=1 to10 do
if Dat[k] < 35 then
begin
m := m+1
end;
writeln(m);
End.

В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.
Var k, m: integer;
Dat: array[1...10] of integer;
Begin
Dat[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 := 20;
for k := 1 to 10 do
if Dat[k] < m then
begin
m := Dat[k]
end;
writeln(m);
End.