Помогите пожалуйста, срочно!

1. Составьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использовать). Сделайте три варианта программ, используя операторы цикла While, Repeat и For.
2. Составьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате сообщит, сколько среди введенных чисел четных и сколько нечетных.

Заранее спасибо!

Информатика 11 класс Циклы и алгоритмы информатика 11 класс программа на языке программирования ввод чисел среднее арифметическое операторы цикла цикл while цикл Repeat цикл for четные и нечетные числа алгоритмы программирование задачи по информатике массивы ввод-вывод данных логика программирования Новый

Привет! Давай разберемся с твоим заданием. Я помогу тебе с примерами программ на языке Pascal.

1. Среднее арифметическое (с циклом While)

program AverageWhile;
var
  i, num, sum: Integer;
begin
  i := 1;
  sum := 0;

  while i <= 10 do
  begin
    Write('Введите число ', i, ': ');
    ReadLn(num);
    sum := sum + num;
    i := i + 1;
  end;

  WriteLn('Среднее арифметическое: ', sum / 10);
end.

2. Среднее арифметическое (с циклом Repeat)

program AverageRepeat;
var
  i, num, sum: Integer;
begin
  i := 1;
  sum := 0;

  repeat
    Write('Введите число ', i, ': ');
    ReadLn(num);
    sum := sum + num;
    i := i + 1;
  until i > 10;

  WriteLn('Среднее арифметическое: ', sum / 10);
end.

3. Среднее арифметическое (с циклом For)

program AverageFor;
var
  i, num, sum: Integer;
begin
  sum := 0;

  for i := 1 to 10 do
  begin
    Write('Введите число ', i, ': ');
    ReadLn(num);
    sum := sum + num;
  end;

  WriteLn('Среднее арифметическое: ', sum / 10);
end.

4. Четные и нечетные числа

Теперь давай сделаем программу, которая считает четные и нечетные числа.

program EvenOddCount;
var
  i, num, evenCount, oddCount: Integer;
begin
  evenCount := 0;
  oddCount := 0;

  for i := 1 to 10 do
  begin
    Write('Введите число ', i, ': ');
    ReadLn(num);

    if num mod 2 = 0 then
      evenCount := evenCount + 1
    else
      oddCount := oddCount + 1;
  end;

  WriteLn('Количество четных чисел: ', evenCount);
  WriteLn('Количество нечетных чисел: ', oddCount);
end.

Вот такие программы у нас получились! Если что-то непонятно или нужно что-то добавить, дай знать! Удачи с заданием!