Программу требуется написать на языке pascal: массив нужно заполнить вводом с клавиатурыдан целочисленный массив из 30 элементов. элементы массива могут принимать целые значения от 0 до 100. составьте программу, которая находит и выводит произведение двузначных элементов массива, которые не делятся на 6. гарантируется, что в исходном массиве есть хотя бы один такой элемент.
JelliTD
3
07.05.2019 21:51
0
Другие вопросы по теме Информатика
demidboevoff
18.09.2020 03:59
Podokonik
18.09.2020 04:18
frogRICH
30.05.2019 03:50
esken576
30.05.2019 03:50
candiesgirl16
29.09.2019 21:10
скрытник
29.09.2019 21:10
dlyaigrmoih1
29.09.2019 21:10
яТУПОЙшкололо
29.09.2019 21:10
умница603
29.09.2019 21:10
Популярные вопросы
- Завтра получишь 5 если решишь это )) представь в виде квадрата данную...
3 - Мини-сочинение вечер в ночлежке по пьесе на дне ...
2 - Укажите две личности, непосредственно связанные с революцией. укажите...
1 - (1)откуда-то издалека, снизу, донёсся до тёмы жалобный, протяжный стон,...
1 - Составте текст на на тему традиции в россии на новый год....
2 - How were your grandparents daily lives different from your life today?...
2 - Найди глагол 2 спряжения напиши этот глагол бежать дышать поливать...
1 - Напишите сочинение по теме семья простаковых.недросль план: 1) место...
1 - Нужно с твору гуси лебеди летять со 2 главы выписать украинские народный...
2 - Просто умоляю заполните мне таблицу 1. равнобедренная трапеция...
3
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.