• Вопрос по информатике:

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

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

    • Автор:

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

    • Отвечал:

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

    • Отвечал:

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

    • Отвечал:

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

    • Отвечал:

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

    • Отвечал:

      raidenrain
    • 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.

    • Отвечал:

      tiannachw7
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска