Задача с массивом..., Определить эл-ты делящиеся на 4... Опции

[ghost]

В массиве B(20) определить элементы, делящиеся на 4 без остатка, и сформировать из них новый массив C, подсчитав количество таких
элементов и минимальный и максимальный среди них.

Помогите решить задачу, пожалуйста.

[Лита]

Ну, во-первых там надо было убрать строку write(b[i]:5);
А чем тебя не устраивает в столбик?
можно, конечно, поставить read(b[i]) и вводить числа через пробел, но нас учили, что иногда может неккорктно читаться информация...
А вообще, в таких случаях для красоты я делаю так: :D

Код

BEGIN
clrscr;
Randomize;
For i:=1 to n do
readln(b[i]);
clrscr;
For i:=1 to n do
write(b[i]:5);
writeln;

получается, что вводишь числа в столбик, потом отчищается экран и выводится массив в строку...