В массиве из N элементов, заданных случайным образом из промежутка [0;50], найдите...

Question

В массиве из N элементов, заданных случайным образом из промежутка [0;50], найдите произведение всех элементов, меньших 25 (pascal abc)

Comments

Вы нашли где-то сборник задач десятилетней давности? Проект Pascal ABС закрыт в 2007 году и уже 11 лет как разработчики поддерживают PascalABC.NET.

Answer 1

Program mathlover12;

const

 n = 50; {Количество элементов массива}

 m = 50; {Максимально возможное значение элемента}

var  

 a:array[1..n] of integer;

 i,pp:integer;

 s:string;

begin

 s:='**** -=Alphaeus=- ****';

 for i:=1 to 22 do begin write(s[i]); sleep(42) end;

{заполняем массив случайными числами}

 writeln; randomize;

 for i:=1 to n do a[i]:=random(m+1);

{Ищем произведение элементов, меньших 25}

 pp:=1;

 for i:=1 to n do

   if a[i]<25 then pp:=pp*a[i];</p>

{Вывод}

 writeln;

 for i:=1 to n do

   write(a[i],' ');

 writeln; writeln;

 writeln('Произведение элементов, меньших 25, равнo ',pp);

end.

{PascalABC.NET}

Program mathlover12;

const

 n = 50; {Количество элементов массива}

 m = 50; {Максимально возможное значение элемента}

var  

 a:array[1..n] of integer;

begin

 var s:='**** -=Alphaeus=- ****';

 for var i:=1 to 22 do begin write(s[i]); sleep(60) end;

{заполняем массив случайными числами}

 writeln; randomize;

 for var i:=1 to n do a[i]:=random(m+1);

{Ищем произведение элементов, меньших 25}

 var pp:=1;

 for var i:=1 to n do

   if a[i]<25 then pp:=pp*a[i];</p>

{Вывод}

 writeln; a.println; writeln;

 writeln('Произведение элементов, меньших 25, равнo ',pp);

end.

---

---

Comments

В pascal abc нету инициализация переменной при описании,внутриблочных описаний переменных, процедуры println.

---

Исправьте все ваши ответы, они не соответствуют заданному яп.

---

Вообще-то, я писал это на PascalABC.NET, и в первой строке моего ответа это указано

---

Но ладно, исправлю

---

А зачем писать на ,NEТ, когда в вопросе указано pascal abc ?

---

Кроме того, если использовать часть возможностей .NET, то можно и прочие использовать и написать решение в несколько строк, а не "Войну и мир".

---

Тут и я не согласиться не могу

---

А что такое яп?

---

Скорее всего ,кто-то так сократил "язык программирования"