Вопрос по информатике:
Дан массив целых чисел из 8 элементов Указать те их них, у которых остаток от деления на M равен 1.(Pascal)
- 09.09.2018 17:38
- Информатика
- remove_red_eye 3649
- thumb_up 10
Ответы и объяснения 1
Program pr;
uses crt;
var
mas: array[1..8] of integer;
M,i:integer;
Begin
writeln('Введите M');
readln(M);
writeln('Введите массив');
for i:=1 to 8 do
readln(mas[i]);
writeln;
{вывод необходимых элементов}
for i:=1 to 8 do
if mas[i] mod M = 1
then writeln('mas[' , i , ']=', mas[i]);
readln;
end.
- 01.01.1970 00:00
- thumb_up 27
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.