Составить ! дан массив из 6 целых чисел. определить произведение элементов больше трех

Morkovka911 Morkovka911    2   11.07.2019 18:40    1

Ответы
88000535285 88000535285  03.10.2020 01:25
Var n,s,i: integer;
    a: array[1..6] of integer;
begin
  n:=6;  s:=1;
  randomize;
  writeln('исходный массив из 6 элементов');
  for i:=1 to n do
  begin
    a[i]:=random(10);
    write(a[i],' ');
    if a[i]>3 then s:=s*a[i];
  end;
  writeln;
  writeln('произведение элем., больших 3 = ',s);
  readln;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика