Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- a: array [1..10] of integer;
- begin
- //Чтение элементов
- for var i := 1 to 10 do
- read(a[i]);
- // Обработка
- a[1] := 0;
- a[2] := a[2] + 10;
- a[3] := a[1] - 1;
- //Вывод элементов
- for var i := 1 to 10 do
- write(a[i], ' ');
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement