Сформируйте массив, содержащий 15 элементов с помощью датчика случаных чисел; получите новый массив, каждый элемент которого равен разности
5-9 класс
|
квадрата и самого соответствующего элемента исходного массива. найдите резность сумм элементов исходного и нового массива. Выведите на экран исходный и поулченные результаты.
Спасибо заранее
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.
Другие вопросы из категории
количество информации содержит сообщение о том, что Петя записался на прием в 11:30
пока же на этом полустанке имеется небольшой тупик где при необходимости может поместится тепловоз с вагонам или два вагона вскоре к тому же полустанку подошел грузовой состав (тепловоз и 7 цистерн) как пропустить пассажирный поезд?
натурального числа оканчивается на 0? нет "Число делится на 10" "Число не делится на 10"
Конец
Читайте также
случайных чисел.Получите новый массив,каждый элемент которого равен удвоенному соответствующему элементу исходного массива.В полученном массиве найдите максимальный элемент среди элементов,номера которых кратны трем.Выведите на экран исходные и полученные результаты
случайных чисел. Получите новый массив,каждый элемент которого равен сумме соответствующего элемента исходного массива и его индекса. В полученном массиве удвойте элементы,которые меньше заданного с клавиатуры числа А,и найдите их сумму . Выведите на экран исходные и полученные результаты
выведите на экран в виде таблицы
Дан массив из 8 элементов, с помощью датчика случайных чисел посчитать количество нечётных элементов.
1) найти и вывести сумму его цифр
2) сформировать число, в котором поменяются разряды (допустим будет число 13, нужно сделать, что бы было 31 и т.п.)
II В паскале с помощью генератора случайных чисел получить трехзначное число и определить, является ли оно полимером (например 121 - является, 123 - нет)