Решить задачи по инфе массив не использовать. 1 известны оценки по физике каждого из 20учеников (вводятся с клавиатуры) определить среднюю оценку. 2 определить сумму чисел кратных 3 от 300 до 700 3 известен рост каждого ученика...
Решить задачи по инфе массив не использовать.
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.
Не нашли ответ?
Похожие вопросы