Дан одномерный массив размера n (n считывается с клавиатуры). - вопрос №1267844 от касымжомарттокаев1 05.09.2022 14:46

Question

Информатика: Дан одномерный массив размера n (n считывается с клавиатуры). найти произведение всех элементов этого массива, кратных трем. если таких элементов нет, вывести на экран 0.

касымжомарттокаев1 · Answer

var a: array [1...n] of integer; j, k, max: integer: begin  for j:=1 to n do readln(a[j]); sum:=0 For j:=1 to n do if a[j]mod=0 then sum:=sum*a[j] Writeln(sum); end.  ...