1. Задать массив m(7)случайными числами от 12 до 73.2. Найти количество

1. Задать массив m(7)случайными числами от 12 до 73.
2. Отыскать количество элементов массива , стоящих на нечетных местах.
3. Вывести на экран элементы массива кратные 5.

Задать свой вопрос
1 ответ

Ответ:

Объяснение:

var

m:array[1..7] of integer;

i,kol:integer;

begin

for i:=1 to 7 do

begin  

m[i]:=random(12,73);

write('m[',i,']= ',m[i],' ') end;

writeln('');

writeln('Элементы массива кратные 5');

for i:=1 to 7 do

begin

if i mod 2=1 then kol:=kol+1;

if m[i] mod 5= 0 then  

writeln (m[i]);

end;

writeln('Количество элементов, стоящих на нечётных местах = ',kol);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт