Предмет: Информатика, автор: ElviraGamidova

Дан массив из 50 элементов. Найти произведение всех элементов.

Ответы

Автор ответа: HRAshton
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.    
Автор ответа: ElviraGamidova
0
Жаль,но не тот: longint и foreach мы не проходили
Автор ответа: HRAshton
0
тогда integer и for l := 1 to 50 do соотвественно
Похожие вопросы
Предмет: Английский язык, автор: irabahova2
Предмет: История, автор: sashazhabin88