Задание:
Составьте программ, которая заполняет массив из 5 элементов случайными целыми числами от -10 до 10, меняет местами значение первого и последнего элемента ивозводит их в квадрат
Решение:
Var a: array [1… 5] of integer; i, c: integer; begin randomize; for i: =1 to 5 do a[i]: =random (21) — 10; c: =a[1]; a[1]: =sqr (a[5]); a[5]: =sqr (c); end.
Знаете другой ответ?