Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

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

5-9 класс

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

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

Miron2077 24 июля 2013 г., 7:23:28 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
RaMiLjA9
24 июля 2013 г., 8:51:17 (10 лет назад)

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.

Ответить

Другие вопросы из категории

Задание по информатике, 9 класс 1.Врач стоматолог принимает пациентов с 8 утра до 2х часов дня. На каждого пациента отводится по 30 минут. Какое

количество информации содержит сообщение о том, что Петя записался на прием в 11:30

на полустанке одноколейной железно дороги остановился поезд в составе тепловоза и трёх вагонов доставивший бригаду рабочих для строительства второго пути

пока же на этом полустанке имеется небольшой тупик где при необходимости может поместится тепловоз с вагонам или два вагона вскоре к тому же полустанку подошел грузовой состав (тепловоз и 7 цистерн) как пропустить пассажирный поезд?

СРОЧНО НУЖНО РЕШИТЬ!!!111
Внимательно рассмотрите блок-схему. Сформируйте в словесной форме признак, о котором в ней идёт речь. Начало Х да Запись

натурального числа оканчивается на 0? нет "Число делится на 10" "Число не делится на 10"

Конец

Читайте также

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

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

Нароооооод!Кто смыслит в информатике,помогите пожалуйста решить номер один.Воть:сформируйте массив, содержащий 15 элементов ,с помощью датчику

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

(Pascal) Задача:

Дан массив из 8 элементов, с помощью датчика случайных чисел посчитать количество нечётных элементов.

I В паскале с помощью генератора случайных чисел получить двузначное число и

1) найти и вывести сумму его цифр
2) сформировать число, в котором поменяются разряды (допустим будет число 13, нужно сделать, что бы было 31 и т.п.)
II В паскале с помощью генератора случайных чисел получить трехзначное число и определить, является ли оно полимером (например 121 - является, 123 - нет)



Вы находитесь на странице вопроса "Сформируйте массив, содержащий 15 элементов с помощью датчика случаных чисел; получите новый массив, каждый элемент которого равен разности", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.