5 задач в Паскале.

[spartanes_dk]

Срочно нужно решить задачи а я не могу.

Пожалуйста! Помогите!

1). Написать программу, которая вводит с клавиатуры одномерный массив, состоящий из 5 элементов и выводит количество ненулевых элементов Перед вводом каждого элемента на экране должна появляться подсказка с его номером;
2). Написать программу, которая выводит среднее арифметическое ненулевых элементов введённого с клавиатуры массива целых чисел;
3). Написать программу, которая проверяет, находится ли в массиве введённое с клавиатуры число. Массив должен вводиться во время работы.
4). Написать программу, которая вычисляет, сколько раз введённое с клавиатуры число встречается в массиве.
5). Написать программу, которая преобразует введённое с клавиатуры восьмиразрядное двоичное число в десятичное.

Заранее спасибо!!!!!!

[Teor]

1)

program w;
uses crt;
var mas:array[1..5] of integer; i,kil:integer;
begin
clrscr;
writeln ('Введите масив');
for i:=1 to 5 do
begin
write (i,':');
readln (mas[i]);
end;
for i:=1 to 5 do
if mas[i]<>0 then kil:=kil+1;
writeln ('Количество ненулевых ',kil);
readkey
end.

Остальные задачи решаються подобным способом

[Askar_g]

за основу взял прогу написанную TEOR

program w;
uses crt;
var mas:array[1..5] of integer; i,kol:integer; srdzn4:real;
begin
clrscr;
writeln ('vvedite element massiva');
for i:=1 to 5 do
begin
write (i,':');
readln (mas[i]);
srdzn4:=srdzn4+mas[i]; {opredelyaetsya summa vsex pyati elementov}
end;
for i:=1 to 5 do
if mas[i]<>0 then kol:=kol+1;
writeln ('koli4estvo ne nulevix ',kol);
writeln ('SredZNA4=',(srdzn4/5):0:0);
readkey
end.

щас пишу остальные как напишу выложу, если что стучи в агент
askar_devil@mail.ru

[spartanes_dk]

Спасибо! большое

[Askar_g]

Вот 3-я задача:

program zada4a_3;
uses crt;
var mas:array[1..5] of integer; i,CH:integer; srdzn4:real;
begin
clrscr;
writeln ('vvedite element massiva');
for i:=1 to 5 do
begin
write (i,':');
readln (mas[i]);
end;
writeln('Vvedite 4islo');
readln(CH);
{for i:=1 to 5 do begin}
if (mas[1]=ch) or (mas[2]=ch) or (mas[3]=ch) or (mas[4]=ch) or (mas[5]=ch)
then writeln('Vvedennoe 4islo vxodit v massiv')
else writeln('Vvedennoe 4islo ne prenadlejit massivu');
readkey
end.

[spartanes_dk]

Ещё раз большое спасибо. Я б без тебя не справился.

[Askar_g]

program Zadacha_4;
uses crt;
var mas:array[1..10] of integer; i,CH,k:integer; srdzn4:real;
begin
clrscr;
for i:=1 to 10 do
begin

mas[i]:=random(10);
end;
for i:=1 to 10 do
begin
write(mas[i]:2)
end;
writeln;

writeln('Vvedite 4islo');
readln(CH);
k:=0;
for i:=1 to 10 do
if mas[i]=ch then k:=k+1;
Writeln('Vvedennoe vami 4islo vstre4aetsya v massive ',k,' raz');
readkey;
end.



А ВОТ ПЯТОЕ Я НЕЗНАЮ КАК РЕШАТЬ

[spartanes_dk]

Да ты и так мне помог. Спасиб ешё раз.

[Кристиш@]

Написать программу,которая вводит с клавиатуры n-чисел.Найти среднее арифметическое всех четных чисел.Найти сумму чисел больше 3,но меньше 9 и распечатать все числа больше 7

[Кристиш@]

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