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.

Answer 2

1. Для решения задачи по нахождению средней оценки по физике каждого из 20 учеников можно воспользоваться следующим алгоритмом: - Создать переменную для хранения суммы оценок и инициализировать ее нулем. - Считать оценки каждого ученика с клавиатуры и добавлять их к сумме. - После ввода всех оценок вычислить среднюю оценку, разделив сумму оценок на количество учеников.

2. Для нахождения суммы чисел, кратных 3, от 300 до 700 можно воспользоваться следующим алгоритмом: - Создать переменную для хранения суммы и инициализировать ее нулем. - Пройти в цикле от 300 до 700 и для каждого числа проверить, делится ли оно на 3 без остатка. Если да, то добавить его к сумме. - После завершения цикла получить итоговую сумму.

3. Для нахождения среднего роста мальчиков и девочек можно воспользоваться следующим алгоритмом: - Создать переменные для хранения суммы роста мальчиков и девочек, инициализировать их нулем и переменную для хранения количества мальчиков и девочек. - Считать рост каждого ученика с клавиатуры и добавить его к сумме соответствующей группы (мальчики/девочки). - После ввода роста всех учеников вычислить средний рост для мальчиков и девочек, разделив сумму роста на количество учеников в каждой группе.

Пример программы на Pascal для решения этих задач:

program SchoolStatistics;

var
  i, mark, sumOfMarks, countOfStudents, sumOfHeightBoys, sumOfHeightGirls, height: integer;
  averageMark, averageHeightBoys, averageHeightGirls: real;

begin
  // Задача 1: Нахождение средней оценки по физике
  sumOfMarks := 0;
  countOfStudents := 20;
  for i := 1 to countOfStudents do
  begin
    write('Введите оценку ученика ', i, ': ');
    readln(mark);
    sumOfMarks := sumOfMarks + mark;
  end;
  averageMark := sumOfMarks / countOfStudents;
  writeln('Средняя оценка по физике: ', averageMark:0:2);

// Задача 2: Нахождение суммы чисел, кратных 3, от 300 до 700
  sumOfMarks := 0;
  for i := 300 to 700 do
  begin
    if i mod 3 = 0 then
      sumOfMarks := sumOfMarks + i;
  end;
  writeln('Сумма чисел, кратных 3, от 300 до 700: ', sumOfMarks);

// Задача 3: Нахождение среднего роста мальчиков и девочек
  sumOfHeightBoys := 0;
  sumOfHeightGirls := 0;
  for i := 1 to 10 do
  begin
    write('Введите рост ученика ', i, ': ');
    readln(height);
    if height < 0 then
      sumOfHeightBoys := sumOfHeightBoys + height
    else
      sumOfHeightGirls := sumOfHeightGirls + height;
  end;
  averageHeightBoys := sumOfHeightBoys / 10;
  averageHeightGirls := sumOfHeightGirls / 10;
  writeln('Средний рост мальчиков: ', averageHeightBoys:0:2);
  writeln('Средний рост девочек: ', averageHeightGirls:0:2);

end.