Предмет: Информатика,
автор: ElviraGamidova
Дан массив из 50 элементов. Найти произведение всех элементов.
Ответы
Автор ответа:
0
var
a: array [1..50] of integer;
l: longint;
begin
for l := 1 to 50 do
begin
a[l] := random(-5, 5);
write(a[l], ' ');
end;
l := 1;
writeln();
foreach k: integer in a do
l *= k;
writeln(l);
end.
a: array [1..50] of integer;
l: longint;
begin
for l := 1 to 50 do
begin
a[l] := random(-5, 5);
write(a[l], ' ');
end;
l := 1;
writeln();
foreach k: integer in a do
l *= k;
writeln(l);
end.
Автор ответа:
0
Жаль,но не тот: longint и foreach мы не проходили
Автор ответа:
0
тогда integer и for l := 1 to 50 do соотвественно
Похожие вопросы
Предмет: История,
автор: sashazhabin88
Предмет: Математика,
автор: semon16
Предмет: История,
автор: menter15
Предмет: Математика,
автор: Karolina2002