Program xax;
var i:shortint;
a,b: array [-10..10] of byte;
begin
randomize;
for i:=-10 to 10 do
begin
a[i]:=random(100);
write(a[i],' ');
end;
writeln;
for i:=-10 to -1 do
b[i]:=a[-11-i];
for i:=1 to 10 do
b[i]:=a[11-i];
b[0]:=a[0];
for i:=-10 to 10 do
write(b[i],' ');
<span>end.</span>
Нет вася не прав так как в кодировании получилось бы 3 бита
какой язык то???? на тебе паскаль...
var
in,out: text;
i.j: integer;
mas:array [0..4,1..6] of integer;
begin
assign(in1,'in.txt');
reset(in1);
assign(out1,'out.txt');
rewrite(out1);
for i:=1 to 4 do
begin
for j:=1 to 6 do
read(mas[i,j]);
readln;
end;
close(in);
close(out);
end.
капец здесь отступы нельзя делать... фиг поймешь...
program Multy;
var i, n, x, mt:integer;
begin
write('введите целое число X ');
readln(x);
write('введите степень N ');
readln(n);
mt:=x;
for i:=1 to (n-1) do
begin
mt:=mt*x;
end;
writeln(x,' в степени ',n,' равно ',mt);
end.