Помогите решить , желательно на языке паскаля.

Question

Помогите решить , желательно на языке паскаля.

---

Answer 1

Const
n=30;
var
a:array[1..n]of integer;
i,j,s:integer;
begin
For i:=1 to n do
Readln(a[i]); {здесь появится курсор, числа вводятся с клавиатуры }
For i:=1 to n do
   begin
       if (a[i]>=100)and(a[i]<=999)then<br>             if a[i] mod 2=0 then
                 begin
                     s:=s+a[i];
                     j:=j+1;
                 end;
   end;
writeln;
if j=0 then
   writeln('нет нужных чисел ')
else 
    writeln(s/j);
end.

 

Comments

Т.е если хочешь проверить, то нужно в паскаль ввести то, что до многоточия, потом кусок того, что я написала, а потом еще и end.

---

Ладно, у меня не получалось, всеравно огромное спасибо

---

Хочешь напишу полностью. Но вообще просто списываешь то, что есть на листочке до многоточия, потом мой кусок, потом end.

---

Сейчас напишу полностью

---

ок

---

Подожди

---

окей

---

Все. Скопируй в Паскаль и посмотри. Появится курсор, придется 30 чисел вводить с клавиатуры. )

---

Спасибо , все супер!!!

---

Ну, и отлично