4000/60*45=4000/4*3=3000
Ответ: 3000 Кбайт передадутся за 45 секунд
Для того что бы было проще. И его ввели как официальный международный.
1.
const n=4;
var
a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=i;
write(a[i,j]:4);
end;
writeln;
end;
end.
Результат:
<span> 1 1 1 1
2 2 2 2
3 3 3 3
4 4 4 4
2.
const m=4; n=5;
var
a:array[1..m,1..n] of integer;
i,j,k:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(96)-35;
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to m do
begin
k:=0;
for j:=1 to n do
if a[i,j]<0 then k:=k+1;
writeln(i,'-я строка: ',k);
end;
end.
Пример:
<span>Исходный массив:
50 -28 -3 36 47
-15 -23 38 -5 37
-14 9 4 5 45
16 -15 33 -5 -18
1-я строка: 2
2-я строка: 3
3-я строка: 1
4-я строка: 3
3.
const m=4; n=5;
var
a:array[1..m,1..n] of integer;
i,j,min:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(111)-65;
write(a[i,j]:4);
end;
writeln;
end;
min:=111;
for i:=1 to m do
for j:=1 to n do
if (a[i,j]<min)and(a[i,j] mod 2=0) then min:=a[i,j];
writeln('min = ',min);
end.
Пример:
<span>Исходный массив:
43 -31 -45 6 38
0 1 -63 44 -50
-34 -9 -6 -56 -15
-48 6 14 25 10
min = -56</span></span></span>
если я все правильно понял, то ответ 4 , так как условие пол=м , а людей с полом у тебя только 4 , то ответ 4
