Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Помогите составить задачу пожалуйста!!!
Дан массив из 6 целых чисел. Определить произведение элементов больше трех

Ответ оставил Гость

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.