Const
nn=50; { ограничение на длину строки/столбца }
var
i,j,m,n,k,s:integer;
a:array[1..nn,1..nn] of integer;
begin
Randomize;
Write('Количество строк в массиве '); Read(m);
Write('Количество столбцов в массиве '); Read(n);
s:=0;
k:=0;
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(101)-50;
Write(a[i,j]:4);
if a[i,j]>0 then begin
s:=s+a[i,j];
k:=k+1
end
end;
Writeln
end;
Writeln('Ср. арифметическое положительных ',s/k)
end.
<u>Пример</u>
Количество строк в массиве 8
Количество столбцов в массиве 11
-11 27 -22 46 -34 -36 10 39 -5 15 -46
46 -48 -42 50 -14 12 -23 -29 -2 8 16
-18 -5 -31 21 -28 -38 20 33 9 24 4
43 18 9 -44 -22 25 37 39 -48 -16 -15
-15 12 46 49 12 -50 -10 42 47 46 33
23 -5 34 26 -5 42 -2 -32 12 -44 -19
-8 -41 -9 -9 -20 -16 3 -15 9 5 -19
47 -40 7 26 -26 0 20 -8 18 27 9
Ср. арифметическое положительных 25.4666666666667
1) 133 кБайт = 136192 байт = 1089536 бит размер файла для передачи
2) 128 Кбит/сек = 131072 бит/сек скорость передачи по сети
3) 1089536 бит / 131072 бит/сек = 8, 31 сек - времени будет проходить передача этого файла
Ответ: 8,31 сек
Начинаем заполнять предложенную табличку. Читаем пункты условий.
1) Аня и Саша не победители по информатике - ставим два минуса, которые в табличке указаны как -(1)
2) Лена и Вася тоже не победители в информатике - ставим -(2)
И замечаем, что в колонке информатика есть только она пустая клетка. Ставим туда + и оказывается, что победитель по информатике - Миша.
Но одновременно это означает, что Миша не является победителем в других предметах и расставляем там минусы (залито салатовым цветом)
3) Саша не силен в истории - ставим -(3)
4) Лена и Саша - не победители по литературе, ставим -(4)
5) Саша и Лена также и не победители в математике - ставим -(5)
И после этого у Саши остается только один предмет - география, где и ставим +(после 5) - голубая заливка. Но тогда остальные школьники не являются победителями по географии и мы ставим им минусы в этом предмете (также голубая заливка)
6) Аня - не победитель по литературе, ставим -(6).
Но тогда литература достается Васе (желтая заливка) и минусы у Васи достаются Истории и Метематике (также залито желтым).
Условия задачи закончились. Но решение продолжается при помощи рассуждений.
7) В Математике свободная клетка есть только для Ани +(7) и тогда у Ани появляется минус в Истории.
8) Последняя пустая клетка - это История у Лены. +(8).
1)
var A: array [1..6,1..4] of integer;
i,j: integer;
begin
randomize;
for i := 1 to 6 do begin
for j := 1 to 4 do begin
A[i,j] := random(20) - 10;
end;
end;
for i := 1 to 6 do begin
for j := 1 to 4 do begin
if (A[i,j] == 0) then begin
writeln("0 v stroke ", i);
continue;
end;
end;
end;
end.
2)
var B: array [1..10] of integer;
i: integer;
begin
for i := 1 to 10 do begin
if (i mod 2 == 0) then B[i] := 5;
else B[i] := 2;
end;
for i := 1 to 10 do begin
writeln(B[i]);
end;
end.