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

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.