===== PascalABC.NET =====
begin
var a: array[1..9] of integer;
for var i := 0 to 2 do
begin
var j := 3 * i + 1;
a[j] := j + 2;
a[j + 1] := Random(50) mod a[j];
a[j + 2] := a[j] + a[ j + 1];
Print(a[j], a[j + 1], a[j + 2])
end
end.
Const nx = 20;mx = 30;
var A:array[1..nx,1..mx]of integer; i,j,n,m,min,z:integer; sum:array[1..nx]of integer;
begin
write('Введите число строк и столбцов');Readln(n,m);min:=1000;
for i:=1 to n do begin
sum[i]:=0;
for j:=1 to n do begin
A[i,j]:= random(100)-50;
write(A[i,j]:5);sum[i]:= sum[i] + A[i,j];end;writeln;
if min > abs(sum[i]) then begin min := abs(sum[i]);z:=i;end;
end;writeln;for i:=1 to n do
writeln('i= ',i,' sum = ', sum[i]:4);writeln;
writeln('Ближе всего к нулю i= ',z,' sum = ', sum[z]:4);<span>end.</span>
Program task;
var i,a:real;
begin
i:=-4;
while (i<=4) do begin
a:=(i*i*i)-(i*i)+16*i-43;
writeln(a:0:2);
i+=0.5;
end;
readln;
<span>end.</span>
Объяснение:
Скорость равна 8 бит/с = 1 байт/с, время передачи 2 минуты = 120 секунд.
Объем данных равен 1 байт/с * 120 с = 120 байт = 0.1171875 КБ