Программу требуется написать на языке Pascal:
Массив нужно заполнить вводом с клавиатуры
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 100. Составьте программу, которая находит и выводит произведение двузначных элементов массива, которые не делятся на 6. Гарантируется, что в исходном массиве есть хотя бы один такой элемент.
Ответы
Ответ дал:
0
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.
Ответ дал:
0
Огромное спасибо!! Я очень благодарен!
Ответ дал:
0
Только почему то выдает ошибку на 17 строке "Неожиданный символ"
Ответ дал:
0
Так получается при копировании со страницы этого сайта
Ответ дал:
0
Удалите все пробелы перед некоторыми строками кода и ошибки быть не должно
Ответ дал:
0
А,спасибо,все хорошо
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад