Напишите плз программу. Заранее спасибо!

program mr;
uses crt;
var i,s: integer;
a,b:array [1..20] of integer;
begin
randomize;
clrscr;
for i:=1 to 20 do a:=random(15);
for i:=1 to 20 do b:=a*2;
writeln('pervonach massiv>');
s:=1;
repeat
for i:=s to s+4 do write(a:5);
writeln;
s:=s+4;
until i>20;
writeln('izmenennii massiv>');
s:=1;
repeat
for i:=s to s+4 do write(b:5);
writeln;
s:=s+4;
until i>20;
write('press any key');
readkey;
end.
Если чего непонятно спрашивай

В полночь такая хрень....

учимся сами это делать
а то образования никакого не получишь

Учиться надо, а не пиво жрать и баб шпандорить.
На кой хрен нам такие тупые специалисты!

цена вопроса?

for i:=1 to 20 do begin большеват цикл_), to 4 хватит_) , ВАНЪКА кстати метод хороший_))) + квадратные скобки рассавишь сам, они не отображаются_), а мне влом настраивать_)

program Project8;

var a,b: array[1..20] of integer;
i:integer;
begin
randomize;
for i:=1 to 20 do a:=random(10);
for i:=1 to 5 do write(a,' ');
writeln;
for i:=6 to 10 do write(a,' ');
writeln;
for i:=11 to 15 do write(a,' ');
writeln;
for i:=16 to 20 do write(a,' ');
for i:=1 to 20 do b:=a*2;

writeln;
writeln;
for i:=1 to 5 do write(b,' ');
writeln;
for i:=6 to 10 do write(b,' ');
writeln;
for i:=11 to 15 do write(b,' ');
writeln;
for i:=16 to 20 do write(b,' ');

readln;
end.

Дай людям поспать)))

a(i)-исходный
b(i)-второй
for i:=1 to 20 do a(i):=random(20)-10;
for i:=1 to 20 do b(i):=a(i)*2;
for i:=1 to 20 do begin
write(b(i),b(i+1),b(i+2),b(i+3),b(i+4)); i:=i+5;
end;
вроде так..

мля.. . школьный вопросик то ^_^