Предмет: Информатика,
автор: babiychuk1998
дана программа нахождения суммы всех элементов массива. Изменить программу таким образом,чтобы:
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.
Ответы
Автор ответа:
0
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.
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.
Автор ответа:
0
ссылку
Автор ответа:
0
подождешь?
Автор ответа:
0
http://nsportal.ru/shkola/informatika-i-ikt/library/2012/02/01/kontrolnaya-rabota-po-teme-odnomernye-massivy
Автор ответа:
0
2 вариант
Автор ответа:
0
заранее спасибо
Похожие вопросы
Предмет: Русский язык,
автор: olesyabaranova20
Предмет: Биология,
автор: ksenia10389
Предмет: Французский язык,
автор: loloantik
Предмет: Физика,
автор: yapahtaev2012
Предмет: Биология,
автор: 20012001ABAB