1. В массиве E хранятся данные измерений среднемесячного расхода электроэнергии за год в киловаттах (Е[1] — данные за январь, Е[2] — за февраль и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма.
var i, k, d: integer;
E: array[1..12] of integer;
begin
E[1]:=125; E[2]:=234; E[3]:=168; E[4]:=89;
E[5]:=108; E[6]:=86; E[7]:=108; E[8]:=648;
E[9]:=259; E[10]:=386; E[11]:=250; E[12]:=367;
d:= 1; k:=E[1];
for i:=2 to 12 do begin
if E[i] < k then begin
k:=E[i]; d:=i end
end;
write(d);
end.
2. В таблице 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 k > 9 then
begin
m := m + Dat[k]
end;
writeln(m)
end.
3. В таблице 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 := 30;
for k := 1 to 11 do
if Dat[k] < m then
begin
m := Dat[k]
end;
writeln(m)
end.
4. В таблице 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 k< 5 then
begin
m := m + Dat[k]
end;
writeln(m)
End.
const
handsfree = true;
var
a: array[1..100, 1..100] of real;
max, min: real;
sum, product: real;
i, j, m, n, k: integer;
begin
{ввод матрицы}
if handsfree then begin
n := random(20) + 2;
m := random(20) + 2;
end
else begin
write('n, m =');
readln(n, m);
end;
writeln('Данные матрицы:');
for i := 1 to m do
begin
for j := 1 to n do
if handsfree then begin
a[i, j] := random(100) - 50;
write(a[i, j]:4, ' ')
end
else
read(a[i, j]);
writeln;
end;
{минимумы и максимумы}
max := a[1, 1];
min := a[1, 1];
for i := 1 to m do
for j := 1 to n do
begin
if max < a[i, j] then max := a[i, j];
if min > a[i, j] then min := a[i, j];
end;
writeln('max = ', max);
writeln('min = ', min);
{сумма, произведение, пр. агригаты}
sum := 0;
product := 1;
for i := 1 to m do
for j := 1 to n do
if a[i, j] <> 0 then {если нужен фильтр}
begin
sum := sum + a[i, j];
product := product * a[i, j];
k := k + 1;
end;
writeln('sum = ', sum);
writeln('product = ', product);
writeln('average = ', sum / (n * m));
writeln('average (selected) = ', sum / k);
end.
Ожидание 2 часа, осталось 4,5 часов
Активен 1 заражённый
1 шаг:
Послано на 15, заражено 15*0.2+1=4(3 в ожидании на 2 часа), осталось 3,5 часов
2 шаг
Послано на 15, заражено 15*0.2+4=7(3 в ожидании на 1 час, 3 в ожидании на 2 часа), осталось 2,5 часов
Активны 4 заражённых
3 шаг
Послано на 15*4=60, заражено 60*0.2+7=19(12 в ожидании на 2 часа, 3 в ожидании на 1 час), осталось 1,5 часов
Активны 7 заражённых
4 шаг
Послано на 15*7=105, заражено 105*0.2+19=40, осталось 0.5 часов
За пол часа рассылок не произойдёт.
ответ: 40