Вопрос по информатике:
Нароооооод!Кто смыслит в информатике,помогите пожалуйста решить номер один.Воть:сформируйте массив, содержащий 15 элементов ,с помощью датчику случайных чисел. Получите новый массив,каждый элемент которого равен сумме соответствующего элемента исходного массива и его индекса. В полученном массиве удвойте элементы,которые меньше заданного с клавиатуры числа А,и найдите их сумму . Выведите на экран исходные и полученные результаты
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 07.05.2018 04:05
- Информатика
- remove_red_eye 12707
- thumb_up 76
Ответы и объяснения 1
program xxx;
var
b, c : array [1..15] of integer;
i, s, a : integer;
begin
//Подключаем датчик случайных чисел
randomize;
//Цикл заполняющий массивы
for i:=1 to 15 do
begin
b[i]:=random(100);
c[i]:=(b[i] + i);
end;
//Выводим на экран 1ый массив
write('Первый массив: ');
for i:=1 to 15 do
begin
write(b[i],' ')
end;
writeln('');
//Выводим на экран 2ой массив
write('Второй массив: ');
for i:=1 to 15 do
begin
write(c[i],' ')
end;
writeln('');
//Вводим число А
write('Введите число А=');
readln(a);
//Формируем 3-ий массив и находим сумму эоементов меньших А
s:=0;
for i:=1 to 15 do
if c[i]
//Выводим на экран 3-ий массив
write('Третий массив: ');
for i:=1 to 15 do
begin
write(c[i],' ')
end;
writeln('');
writeln('сумма элементов меньших А=', s);
readln
end.
- 08.05.2018 04:31
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.