Что делать если выдаётся эта ошибка ? Неверный ответ в поле подтвердите, что вы не робот, ниже.
(Код ссылки: 3813949048238576159)

226

Посмотреть ответы 1

Ответы на вопрос:

рашад10

Информатика

4,6(38 оценок)

Відповідь:

Пояснення: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.

150 000+ пользователей

Оформить подписку