Вопрос от посетителя:
Составьте программу,которая формирует массив из 15 случайных целых цифр от -20 до 20 и меняет местами значения первого и последнего элементов массива.На экран выводятся исходные и преобразованные значения.Надо очень СРОЧНО!!!!!!!!!!!!!!!!!!!!!!
Илюха отвечает:
var m:array[1..15] of real;
i:integer;
n:real;
begin
randomize;
for i:=1 to 15 do
begin
m:=random(20)-20;
if( m<0) then
begin
m:=sqr(m);
end;