Составьте программу,которая формирует массив из 15 случайных целых цифр от -20 до 20 и меняет местами значения первого и последнего элементов массива.На экран выводятся исходные и преобразованные значения.Надо очень СРОЧНО!!!!!!!!!!!!!!!!!!!!!!
Ответы на вопрос
Ответил Аноним
0
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;
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;
Ответил ali07
0
program xxx;
var i : integer;
a : array[1..15] of real;
n : real;
begin
randomize;
for i:=1 to 15 do
a[i]:=random(20)-20;
writeln('исходный массив А:');
for i:=1 to 15 do
write(a[i]);
n:=a[1];
a[1]:=a[15];
a[15]:=n;
writeln('полученный массив А:');
for i:=1 to 15 do
write(a[i]);
readln
end.
Новые вопросы
Математика,
6 лет назад
Русский язык,
6 лет назад
Математика,
10 лет назад
Информатика,
10 лет назад
Математика,
10 лет назад