Программу требуется написать ** языке Pascal:Массив нужно заполнить вводом с...

Question

Программу требуется написать на языке Pascal:Массив нужно заполнить вводом с клавиатурыДан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 100. Составьте программу, которая находит и выводит произведение двузначных элементов массива, которые не делятся на 6. Гарантируется, что в исходном массиве есть хотя бы один такой элемент.

Comments

Массив нужно заполнить вводом с клавиатуры или случайными числами от 0 до 100?

---

Сейчас уточню,минутку

---

Нужно заполнять вводом

Answer 1

program raf105;

var a:array[1..30] of integer;

pro,i:integer;

begin

writeln('Вводите 30 чисел по очереди');

pro:=1;

for i:=1 to 30 do

begin

 readln(a[i]);

 if (a[i] <= 99) and (a[i] >= 10) and ((a[i] mod 6) <> 0)

   then pro*= a[i];

end;

writeln('Вывод: ',pro);

end.

Comments

Огромное спасибо!! Я очень благодарен!

---

Только почему то выдает ошибку на 17 строке "Неожиданный символ"

---

Так получается при копировании со страницы этого сайта

---

Удалите все пробелы перед некоторыми строками кода и ошибки быть не должно

---

А,спасибо,все хорошо