Вычислить произведение тех элементов матрицы, которые больше E - Pascal ABC

Формулировка задачи:

Вычислить произведение тех элементов матрицы ,которые больше E,но меньше H(Е и Н -заданные значения ,Е<Н)

Код к задаче: «Вычислить произведение тех элементов матрицы, которые больше E - Pascal ABC»

textual
var
   i,j,e,h,r:integer;
   p:longint;
begin
randomize;
repeat
  readln(e,h);
until e<h;
p:=1;
for i:=1 to 5 do
  begin
    for j:=1 to 5 do
      begin
        r:=random(9)+1;
        write(r:3);
        if (r>e) and (r<h) then
          p:=p*r;
      end;
    writeln;
  end;
writeln('Произведение: ',p);
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

13   голосов, оценка 4.462 из 5


СОХРАНИТЬ ССЫЛКУ