Advertisement
Guest User

Untitled

a guest
Mar 20th, 2019
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.30 KB | None | 0 0
  1. var
  2. a: array [1..10] of integer;
  3.  
  4. begin
  5. //Чтение элементов
  6. for var i := 1 to 10 do
  7. read(a[i]);
  8.  
  9. // Обработка
  10. a[1] := 0;
  11. a[2] := a[2] + 10;
  12. a[3] := a[1] - 1;
  13.  
  14. //Вывод элементов
  15. for var i := 1 to 10 do
  16. write(a[i], ' ');
  17. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement