В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
A8L3E1X
A8L3E1X
16.03.2020 17:53 •  Информатика

Дана программа нахождения суммы всех элементов массива. изменить программу таким образом,чтобы: a) массив состоял из 15 элементов вещественного типа; b) значения элементов массива должны меняться в интервале от 0 до 5; c) в результате выполнения программы должно быть найдено произведение всех элементов массива, а не их сумма. program massiv; const n=10; var a: array [1..n] of integer; s,i integer; begin writeln (‘ исходный массив.‘); for i: = 1 to n do begin a [ i] : = random (10); write (‘a[‘i'] =', a[i], ''); end; s: =0; for i: = 1 to n do s: = s+a[i]; writeln (‘ сумма всех элементов массива s=‘, s); end. 2. вводится одномерный массив размерностью 100 для обработки данной программой. что делает программа? program pr; var х: array [1..100] of integer; i, s: integer; begin s: =0; for i: =l to 100 do begin readln (x [i]) ; if i mod 2=0 then s: =s+x[i] ; end; writeln (s) ; end. данная программа определяет: 1.сумму значений элементов массива с четными индексами; 2.сумму значений отрицательных элементов; 3.количество элементов, значение которых четное число; 4.среднее арифметическое значений элементов массива с четными индексами.

Показать ответ
Ответ:
NikikitaHyduak
NikikitaHyduak
09.10.2020 19:50

1.Program massiv;

const n=15;

Var a: array [1..n] of integer;

s,i integer;

Begin

writeln (‘ исходный массив.‘);

For i:= 1 to n do

begin

a [ i] := random (6);

write (‘a[‘i'] =', a[i], '');

end;

s:=0;

For i:= 1 to n do

s:= s*a[i];

Writeln (‘ сумма всех элементов массива S=‘, s);

end.

2.1

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота