ГлавнаяФорумПомощь по предметамИнформатика[PASCAL]Сдвиг элементов влево

[PASCAL]Сдвиг элементов влево

Посетитель
Brixton
тест тест Словакия
Сообщений: 43
316 дней назад
Код PASCAL:
  1. const N = 10;
  2. var a: array [1..N] of integer;
  3. m:integer;
  4. i:integer;
  5. begin
  6. for i:=1 to N do
  7. a[i]:= Random(100);
  8. writeln('Элементы массива a: ');
  9. for i:=1 to N do
  10. write(a[i],' ');
  11. writeln;
  12. m:=a[1];
  13. for i:=1 to N-1 do
  14. a[i]:= a[i+1];
  15. a[N]:= m;
  16. writeln('После сдвига влево: ');
  17. for i:=1 to N do
  18. write(a[i],' ');
  19. writeln;
  20. end.
Мы все со временем становимся не интересными ©
|
Перейти на форум:
Быстрый ответ
У вас нет прав, чтобы писать на форуме.