Скорость передачи
2500 / 40
время передачи нового файла
2750 / (2500/40) = 1,1*40 = 44 сек
Ответ 44 сек
Const
m=10;
n=6;
var
a:array[1..10,1..6] of integer;
i,j:integer;
begin
Writeln('Элементы массива');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=sqr(i)+sqr(j);
Write(a[i,j]:4)
end;
Writeln
end
end.
<em><u>Тестовое решение:</u></em>
Элементы массива
2 5 10 17 26 37
5 8 13 20 29 40
10 13 18 25 34 45
17 20 25 32 41 52
26 29 34 41 50 61
37 40 45 52 61 72
50 53 58 65 74 85
65 68 73 80 89 100
82 85 90 97 106 117
101 104 109 116 125 136
const
n = 10;
var
a: array[1..n] of integer;
i, t: integer;
begin
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin
a[i] := Random(50);
Write(a[i]:3);
end;
Writeln;
t:=a[n];
for i:=n-1 downto 1 do a[i+1]:=a[i];
a[1]:=t;
Writeln('Результирующий массив');
for i := 1 to n do Write(a[i]:3);
Writeln
end.
<em><u>Тестовое решение:</u></em>
Элементы массива
13 43 26 31 1 21 12 0 33 25
Результирующий массив
25 13 43 26 31 1 21 12 0 33
var a,b,s: integer;
begin
readln(a);
while a>=10 do
begin
b:=a mod 10;
s:=s+sqr(b);
a:=a div 10;
end;
a:=a*a;
s:=s+a;
writeln(s);
readln;
end.
В s накапливаем сумму квадратов, b это остатки от деления на десять, после цикла прибавляем последнюю цифру,которая меньше десяти, предворительно возведя её в квадрат!
Program prog;
uses crt;
var a: array [1..10] of integer;
i,k: integer;
begin
clrscr;
randomize;
k:=0;
for i:=1 to 10 do
begin
a[i]:=random(100)-50;
writeln ('a[',i,'] = ', a[i]);
if a[i]>0 then inc(k);
end;
writeln;
write('K = ', k);
end.
Const N = 10;
var a: array[1..N] of integer;
i, j, k: integer;
begin
write ('Исходный массив: ');
for i := 1 to N do
begin
a[i] := random(100);
write (a[i]:4);
end;
writeln;
writeln;
for i := 1 to N-1 do
for j := 1 to N-i do
if a[j] > a[j+1] then
begink := a[j];
a[j] := a[j+1];
a[j+1] := k;
end;
write ('Отсортированный массив: ');
for i := 1 to N do write (a[i]:4);
writeln;
readln;
<span>end.</span>
