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

[ghost]

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

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

[Лита]

Или можно на мыло мне кинуть.

Вот... щас попробую прикрепить блок-схему...
только я немного изменила прогу...

Код

Uses crt;
const n=20;
Var b,c:array [1..n] of integer;
   min,max,i,j:integer;
BEGIN
clrscr;
Randomize;
For i:=1 to n do
begin
b[i]:=random(40);
write(b[i]:5);
end;
j:=0;
For i:=1 to n do
begin
If b[i] mod 4=0 then
 begin
 inc(j);
 c[j]:=b[i];
   If j=1 then
        begin
        max:=c[j];
        min:=c[j];
        end
        else
        begin
        If c[j]<min then min:=c[j];
        If c[j]>max then max:=c[j];
        end;
 end;
end;
writeln;
If k>0 then
begin
For i:=1 to j do
write(c[i]:4);
writeln;
writeln('vsego elementov ',j);
writeln('max=',max,'    min=',min);
end
else
writeln('Net elementov kratnih 4');
readln;
end.

Сообщение отредактировано: Лита - 3.11.2004 6:32