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

Question

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

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
ReadArrInteger(5).Where(x->x mod 5=0).Println;
end.

Answer 2

//Ввести с клавиатуры массив из 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.

Comments

//Ввести с клавиатуры массив из 5 элементов , вывести элементы массива делящихся на 5
var a:array[1..5] of integer;
i,b: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.