Дан массив целых чисел из 8 элементов Указать те их них, у которых остаток от деления на M равен 1. (Pascal)

Question

Информатика

Лара

21 марта, 14:09

Дан массив целых чисел из 8 элементов Указать те их них, у которых остаток от деления на M равен 1. (Pascal)

+4

Ответы (1)

Знаете ответ на вопрос?

Дениса · Answer 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.