Источник: znanijam.net
Дана программа нахождения суммы всех элементов массива. Изменить программу таким образом,чтобы:
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 для обработки данной программой. Что делает программа?
C++ | Сложение элементов массива
1.сумму значений элементов массива с четными индексами;
2.сумму значений отрицательных элементов;
3.количество элементов, значение которых четное число;
4.среднее арифметическое значений элементов массива с четными индексами.
Источник: troechka.com
Дана программа нахождения суммы всех элементов массива. Изменить программу таким образом,чтобы: 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.
Ответы на вопрос
Отвечает Ложкина Юля.
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:=1;
For i:= 1 to n do
s:= s*a[i];
Writeln (‘ произведение всех элементов массива S=‘, s);
end.
Источник: uznavalka.pro