Решить задачи по инфе массив не использовать.
1 известны оценки по физике каждого из 20учеников (вводятся с клавиатуры) определить среднюю оценку.
2 определить сумму чисел кратных 3 от 300 до 700
3 известен рост каждого ученика класса в классе 10 человек
Рост мальчиков условно задан отрицательными числами определить средний рост мальчиков и средний рост девочек
Написать программы в pascal
Задача №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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
