Заполнить массив и вывести на печать следующим образом:

11111

22222

33333

44444

55555

1

Ответы и объяснения

2013-03-14T08:03:19+04:00

program z2;
uses crt;
var a:array[1..25] of byte; {- описание массива}
i,j:byte;
begin
clrscr;
for i:=1 to 5 do begin {- цикл, отвечающий за присваемую цифру}
for j:=5*i-4 to 5*i do begin {- цикл, отвечащий за индекс элемента массива}
a[j]:=i;
write(a[j]);
end;
writeln;
end;
readkey
end.