Сформируйте массив, содержащий 15 элементов с помощью датчика случаных чисел; получите новый массив, каждый элемент которого равен разности квадрата и самого соответствующего элемента исходного массива. найдите резность сумм элементов исходного и нового массива. Выведите на экран исходный и поулченные результаты. Спасибо заранее 

Вопрос от посетителя

Сформируйте массив, содержащий 15 элементов с помощью датчика случаных чисел; получите новый массив, каждый элемент которого равен разности квадрата и самого соответствующего элемента исходного массива. найдите резность сумм элементов исходного и нового массива. Выведите на экран исходный и поулченные результаты.

Спасибо заранее 

Отвечает Илюха:

program a1;
var
a: array [1..15] of integer;
a2: array [1..15] of integer;
Mas1:integer;
Mas2:integer;
Raz:integer;
i:integer;
begin
//Подключаем датчик случайных чисел
randomize;

//Цикл заполняющий массивы и нахождение сумм элементов масива
for i:=1 to 15 do
begin
a[i]:=random(100);
a2[i]:=sqr(a[i])-a[i];
Mas1:=Mas1+a[i];
Mas2:=Mas2+a2[i];
end;

//находим разницу массивов
raz:=mas1-mas2;

//Выводим на экран 1ый массив
write(‘Первый массив: ‘);
for i:=1 to 15 do
begin
write(a[i],’|’)
end;
writeln(”);

//Выводим на экран 2ой массив
write(‘Второй массив: ‘);
for i:=1 to 15 do
begin
write(a2[i],’|’)
end;
writeln(”);

//Выводим на экран разность массивов
write(‘Разность сумм элементов массива:’, raz);
writeln(”);
end.

Добавить свой ответ