Задание:
Решить задачи: Задача 1. Составьте программу, которая заполняет массив а[1… 10] случайными целыми числами в диапазоне от 1 до 10, затем меняет местами первый и последний элементы. Задача 2. Составьте программу, которая организует ввод массива а [1… 8] с клавиатуры, затем преобразовывает массив, заменяя все отрицательные элементы их модулями.
Решение:
Задача 1.Var a,z: integer; m: array[1… 10] of integer; beginfor a: =1 to 10 dom[a]: =random (10)+1; z: =m[1]; m[1]: =m[10]; m[10]: =m[z]; end. Задача 2var a: array[1… 8]of integer; i: integer; beginfor i: =1 to 8 doreadln (a[i]); for i: =1 to 8 doif a[i]<0 then a[i]: =abs (a[i]); writeln; for i: =1 to 8 dowrite (a[i],'); end.
Знаете другой ответ?