Есть ответ 👍

по информатике 8 класс

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

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

seSSS
4,4(41 оценок)

Program mac; uses crt;   const n=9; var c,i: integer; a: array[0..n] of integer; begin writeln('введите исходный массив'); for i: =0 to n do  begin       write('a[',i,']=');   readln(a[i]);   end;   writeln('вывод исходного массива'); for i: =0 to n do        write(a[i],' ');   writeln;   c: =a[n];     for i: =n-1   downto   0 do    a[i+1]: =a[i]; a[0]: =c; writeln('вывод   результативного   массива'); for i: =0 to n do  write(a[i],' ');   readln end. 

Популярно: Информатика