ввести с клавиатуры массив из 5 частей , вывести элементы массива

Ввести с клавиатуры массив из 5 элементов , вывести элементы массива делящихся на 5. Пожалуйста, в паскаль

Задать свой вопрос
2 ответа
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
ReadArrInteger(5).Where(x-gt;x mod 5=0).Println;
end.
//Ввести с клавиатуры массив из 5 частей , вывести элементы массива делящихся на 5
var a:array[1..5] of integer;
i:integer;
begin
for i:=1 to 5 do readln(a[i]);
for i:=1 to 5 do if (a[i] mod 5 = 0) then writeln(a[i]);
end.
Галка Шагеева
//Ввести с клавиатуры массив из 5 частей , вывести элементы массива делящихся на 5var a:array[1..5] of integer;i,b:integer;beginfor i:=1 to 5 do readln(a[i]);for i:=1 to 5 do if (a[i] mod 5 = 0) then writeln(a[i]);end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт