Решить задачи по инфе массив не использовать. 1 известны оценки по физике каждого из...

Question

Решить задачи по инфе массив не использовать.
1 известны оценки по физике каждого из 20учеников (вводятся с клавиатуры) определить среднюю оценку.
2 определить сумму чисел кратных 3 от 300 до 700
3 известен рост каждого ученика класса в классе 10 человек
Рост мальчиков условно задан отрицательными числами определить средний рост мальчиков и средний рост девочек
Написать программы в pascal

Answer 1

Задача №1  (остальные по мере создания через несколько минут)

uses Crt;
const n = 20;
var    i, ball, Sum: integer;
begin ClrScr; 
Sum:=0;
 for i:=1 to n do
 begin   
     Write ( ' Ball ' ,i , ' = ');   
      ReadLn(Ball);
      Sum:=Sum+Ball;
 end;  
WriteLn; 
Writeln ('Sred = ' , Sum/n:4:1); 
ReadLn;
end.

---

---

---

---

---

Comments

Ну вроде все задачи... Разберешься с именами переменных?  Они вроде понятны.... :)

---

Если что надо - напиши лучше письмо - мне так по-стариковски удобнее :))  [email protected]