1024 : 256= 4 (скорость 256 бит/с < 1024бит/с в 4 раза)
За одно и то же время можно передать файл размером в 4 раза меньше:
4 Кбайт :4 =1 Кбайт=1024 байта.
Program q;
var a:array[1..7,1..7] of integer; min7,sum1,odd,i,k:integer; avg5:real;
begin;
randomize;
for i:=1 to 7 do begin;
for k:=1 to 7 do begin;
a[i,k]:=random(-10,10);
if a[i,k] mod 2 = 1 then odd+=1;
end;
end;
min7:=a[1,7];
for i:=1 to 7 do if a[7,i]<min7 then min7:=a[i,7];
for i:=1 to 7 do sum1+=a[i,1];
for i:=1 to 7 do avg5+=a[5,i];
avg5/=7;
for i:=1 to 7 do a[1,i]:=1;
write('Минимальный элемент в 7 столбце ', min7, ', сумма элементов первой строки ', sum1, ', кол-во нечётных чисел ', odd);
end.
Вот это наверно) Если менять числа, значение площади меняется. Только нужно подбирать специальные числа, чтоб под квадратным корнем не было отрицательного числа)
Var a:array[1..10] of integer;
i:integer;
begin
i:=1;
repeat
readln(a[i]);
i:=i+1;
until i>10;
end.