var i, j: integer; a, b: array[1..n, 1..m] of integer;
begin for i := 1 to n do begin for j := 1 to m do begin a[i, j] := random(20) - 10; write(a[i, j]:3, ' '); end; writeln; end; writeln;
for i := 1 to n do begin for j := 1 to m do begin if ((i + j) mod 2 = 1) and (a[i, j] < 0) then a[i, j] := sqr(a[i, j]); write(a[i, j]:4, ' '); end; writeln; end; end.
n = 3;
m = 3;
var
i, j: integer;
a, b: array[1..n, 1..m] of integer;
begin
for i := 1 to n do
begin
for j := 1 to m do
begin
a[i, j] := random(20) - 10;
write(a[i, j]:3, ' ');
end;
writeln;
end;
writeln;
for i := 1 to n do
begin
for j := 1 to m do
begin
if ((i + j) mod 2 = 1) and (a[i, j] < 0) then
a[i, j] := sqr(a[i, j]);
write(a[i, j]:4, ' ');
end;
writeln;
end;
end.
1)
var
s : real;
i, n : integer;
begin
s := 0;
read (n);
for i := 1 to n do s := s + 1 / i;
writeln (s);
end.
2)
var
a, i : integer;
begin
a := 1;
for i := 1 to 8 do
begin
a := a * 2;
writeln ('Через ', i * 3, 'часов будет ', a, ' амеб');
end;
end.
3)
var
n, i : integer;
x, s : real;
begin
s := 0;
read (n, x);
for i := 1 to n do
s := s + sin (i * x);
writeln (s);
end.
4)
var
n, a, r, i : integer;
begin
r := 1;
read (a, n);
for i := 1 to n do r := r * a;
writeln (r);
end.