Регистрация
Ghanali
Есть ответ 👍

Есть тут те, кто знает башкирский

номер 22, 24, 25, 26, 28

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

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

Venjin
Venjin
4,7(13 оценок)

паскаль

program test;

uses crt;

const n=10;

var a,b: array [1..n] of integer; i: integer;

begin

clrscr;

randomize;

for i: =1 to n do

a[i]: = random(10);

for i: =1 to 10 do

write(a[i],' ');

writeln;

for i: =1 to n do

if i=n then b[n]: =a[1] else b[i]: =a[i+1];

for i: =1 to 10 do

write(b[i],' ');

readln;

end.

отметь как лучшее

Популярно: Другие предметы