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

11111

22222

33333

44444

55555

Question

Информатика

Лилюша

7 ноября, 08:22

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

11111

22222

33333

44444

55555

+5

Ответы (1)

Знаете ответ на вопрос?

Иероним · 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.

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

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

11111

22222

33333

44444

55555