В одномерном массиве вывести все четные элементы, кратные 4 и 5

@olli · Регистрация: 03.04.2012

Author24 — интернет-сервис помощи студентам

Помогите, пожалуйста! Буду благодарна за любую помощь в решении!

@3a9Ic · 08.04.2012, 19:26

Pascal

Const n=5;
var a:array[1..n] of integer;
i:integer;
begin
     writeln('Массив:');
     for i:=1 to n do read(a[i]);
     for i:=1 to n do
     begin
     if (not odd(a[i])) and (a[i] mod 4=0) then writeln('Числа ',a[i],' четные и кратно 4');
     end;
     for i:=1 to n do
     begin
     if (not odd(a[i])) and (a[i] mod 5=0) then writeln('Числа ',a[i],' четные и кратно 5');
     end;
end.

@olli 0 / 0 / 0 Регистрация: 03.04.2012 Сообщений: 8
		1
	В одномерном массиве вывести все четные элементы, кратные 4 и 5 03.04.2012, 21:57. Показов 1324. Ответов 1 Метки нет (Все метки) Помогите, пожалуйста! Буду благодарна за любую помощь в решении! Миниатюры 0

	08.04.2012, 19:26

В одномерном массиве вывести все четные элементы, кратные 4 и 5

Решение