Помогите пожалуйста, срочно! Составьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использовать). Сделайте три варианта программ, исполь...
Составьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использовать). Сделайте три варианта программ, используя операторы цикла While, Repeat и For.
Составьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате сообщит, сколько среди введенных чисел четных и сколько нечетных.
Привет! Давай разберемся с твоим заданием. Я помогу тебе с примерами программ на языке Pascal.
### 1. Среднее арифметическое (с циклом While)
```pascal
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)
```pascal
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)
```pascal
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. Четные и нечетные числа
Теперь давай сделаем программу, которая считает четные и нечетные числа.
```pascal
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.
```
Вот такие программы у нас получились! Если что-то непонятно или нужно что-то добавить, дай знать! Удачи с заданием!