Понятная информатика

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

Паскаль

var k, m: integer;
Dat: array[1..10] of integer;
begin
Dat[1]:= 45; Dat[2]:= 55;
Dat[3]:= 40; Dat[4]:= 15;
Dat[5]:= 20; Dat[6]:= 80;
Dat[7]:= 35; Dat[8]:= 70;
Dat[9]:= 10; Dat[10]:= 45;
m:= Dat [1];
for k:= 2 to 10 do begin
  if Dat[k] < Dat[1] then
begin
m:= m + Dat [k]
end
end;
write(m);
end.

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

Паскаль

var k, m, day: integer;
Dat: array[1..10] of integer;
begin
Dat [1] := 7; Dat [2] := 1;
Dat [3] := 3; Dat [4] := 3;
Dat [5] := 2; Dat [6] := 2;
Dat [7] := 5; Dat [8] := 5;
Dat [9] := 7; Dat [10] := 1;
day:= 1; m:= Dat[l];
for k:= 2 to 10 do begin
if Dat[k] < m then
begin
m := Dat [k];
day := k
end
end;
write(day);
end.

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


Паскаль

var k, m, month: integer;
Dat: array[1.,12] of integer;
begin
Dat[1] := 2; Dat[2] := 8;
Dat[3] := 6; Dat[4] := 3;
Dat[5] : = 8; Dat[6] := 2;
Dat[7] : = 3; Dat[8] := 7;
Dat[9] := 4; Dat[10] := 4;
Dat[11] := 8; Dat [12] := 7;
month := 1;
m := Dat[1];
for k := 2 to 6 do begin
if Dat[k] > m then
begin
m := Dat [k];
month := k
end
end;
write(month);
end.

В массиве Phone хранятся данные о расходах за телефон за год в рублях (Phone[l] — данные за январь, Phone[2] — за февраль и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трех алгоритмических
языках. Ответ запишите без пробелов.


Паскаль

var d, s, i: integer;
Phone: array[1..12] of integer;
begin
Phone[1]:=52;
Phone[2]:=71;
Phone[3]:=88;
Phone [4]:=31;
Phone [5]:=17;
Phone [6]:=82;
Phone [7]:=74;
Phone [8]:=91;
Phone [9]:=24;
Phone [10]:=61;
Phone [11]:=50;
Phone [12]:=31;
d:= 1; s:= Phone[1];
for i:=2 to 12 do
begin
if Phone[i] >s then
begin
s:= Phone[i]; d:=i
end
end;
write(s,d);
end.

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

Паскаль

var k, m: integer;
Dat: array[1..10] of integer;
begin
Dat[1]:= 45; Dat[2]:= 55;
Dat[3]:= 40; Dat[4]:= 15;
Dat[5]:= 20; Dat[6]:= 80;
Dat[7]:= 35; Dat[8]:= 70;
Dat[9]:= 10; Dat[10]: = 45;
m:= Dat [1];
for k:= 4 to 10 do begin
if Dat[k] <= Dat[l] then
begin
m:= m + Dat [k]
end
end;
write (m);
end.

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

Паскаль

var k, m, day: integer;
Dat: array[1..10] of integer;
begin
Dat[1] := 7; Dat[2] := 2;
Dat[3] := 3; Dat[4] := 3;
Dat[5] := 4; Dat[6] := 4;
Dat[7] := 5; Dat[8] := 5;
Dat[9] := 7; Dat[10] := 6;
day:= 1;
m:= Dat[1];
for k:= 2 to 10 do begin //+3
if Dat[k] >= m then
begin
m := Dat [k];
day := k
end
end;
write(day);
end.

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

Паскаль

var k, m: integer;
Dat: array[1..10] of integer;
begin
Dat[1] := 45; Dat[2] := 55;
Dat[3] := 40; Dat[4] := 15;
Dat[5] := 20;. Dat[6] := 80;
Dat[7] := 35; Dat[8] := 70;
Dat[9] := 10; Dat[10] := 45;
m:= Dat[1];
for k:= 4 to 10 do begin
if Dat[k] >= Dat[1] then
begin
m:= m + Dat[k]
end
end;
write(m);
end.

В таблице Dat хранятся положительные или отрицательные целые числа. Определите, что будет напечатано в результате выполнения следующего алгоритма

Паскаль

var k, m, num: integer;
Dat: array[1..10] of integer;
begin
Dat[1]:= 7; Dat[2]:= -8;
Dat[3]:= 3; Dat[4]:= 6;
Dat[5]:= -4; Dat[6]:= 3;
Dat[7]:= 5; Dat[8]:= -5;
Dat [9] := 7; Dat[10] := 1;
num:= 1; m:= Dat[1];
for k:= 2 to 10 do begin //+4
if Dat[k] * m < 0 then
begin
m := Dat [k]; num := k
end
end;
write(num);
end.

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

Паскаль

var k, m: integer;
Dat: array[1..10] of integer;
begin
Dat[1]:= 45; Dat[2]:= 55;
Dat[3]:= 40; Dat[4]:= 15;
Dat[5]:= 20; Dat[6]:= 80;
Dat[7]:= 35; Dat[8]:= 70;
Dat[9]:= 10; Dat[10]:= 45;
m:= Dat[1];
for k:= 4 to 10 do begin
if Dat[k] > Dat[l] then
begin
m: = m + Dat [k]
end
end;
write(m);
end.

В массиве V хранятся данные о среднемесячной влажности за год в процентах (V[l] —
данные за январь, V[2] — за февраль и т.д.). Определите, что будет напечатано в результате
выполнения следующего алгоритма

Паскаль

var k, i: integer;
V: array[1..12] of integer;
begin
V[1]:=52;
V[2]:=71;
V[3]:=88;
V[4]:=31;
V[5]:=17;
V[6]:=82;
V[7]:=74;
V[8]:=91;
V[9]:=24;
V[10]:=61;
V[11]:=50;
V[12]:=31;
k:= 0;
for i:=1 to 12 do
if (V[i]>50) and (V[i] k=k+1;
write(k);
end.