Заполнить массив и вывести ** печать следующим образом: 11111 22222 33333 44444 55555

Question

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

11111

22222

33333

44444

55555

Answer 1

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.