Question

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

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.