Дан массив из 10 элементов. Найти произведение только тех чисел, которые больше заданного числа М, вводимого с клавиатуры. Если таких нет, то выдать сообщение об этом.

Или вот так mult:=1; for i:=1 to 10 do if mas[ i] >M then mult:=mult*mas[ i]; writeln('result = ', mult);

Боюсь мне такое не засчитают.... можно это же, но с помощью цикла сделать?

mult:=1 с новой строчки только.

uses crt;const N= 10 вот это мы не проходили

Всё, понял как заменить. СПасибо огромное!

По моему вот так.uses crt;const N= 10;  {N - количество чисел в последовательности}var i,p, M:integer; a:array[1..N] of integer;begin p:=1;write('введите число M=');readln(M);writeln('введите исходный массив');for i:=1 to N do  {начало цикла по кол эл  }  begin    write('a[',i,']='); readln(a[i]);   {ввод эл массива}    if a[i]>M then p:=p*a[i]; end;if M=1 then writeln(' элементов  > M  нет')                   else  writeln('p=',p);   {печать произведения}readlnend.