Ввести с клавиатуры массив из 5 элементов , найти среднее арифметическое всех элементов масива. abc pascal. через for, , repead

//Pascal ABC.NET v3.1 сборка 1172

//For

Var
 ar:array[1..5] of integer;
 i:integer;
 r:real;
begin
 for i:=1 to 5 do
  begin
   readln(ar[i]);
   r:=r+ar[i];
  end;
 r:=r/i;
 writeln(r);
end.

//while

Var
 ar:array[1..5] of integer;
 i:integer;
 r:real;
begin
 while i<>5 do
  begin
   i:=i+1;
   readln(ar[i]);
   r:=r+ar[i];
  end;
 r:=r/i;
 writeln(r);
end.

//repeat

Var
 ar:array[1..5] of integer;
 i:integer;
 r:real;
begin
 repeat
   i:=i+1;
   readln(ar[i]);
   r:=r+ar[i];
 until i=5;
 r:=r/i;
 writeln(r);
end.
 

Пример ввода:
1
2
1
2
1
Пример вывода:
1.4

Решение

Объяснение:

1. Создать 2 переменные, сделать проверку через if Если a>b то writeln(a+b) else writeln(a*b) После этого writeln("ЗАДАЧА РЕШЕНА")

2.Создать переменную n(Сколько лет дракону) и h(Голова) Так же сделать проверку через if сколько ему лет Если >100 то n*3 Если <100 То (100*3)+((n-100)*2) и записать в переменную h

Что бы получить глаза достаточно h*2 (если у дракона 2 глаза)

3.Создать 2 переменные, сделать проверку через if допустим если a<b writeln(a) else (b)

4.Создать переменную в которую пользователь будет вводить число,

После этого надо его делить на 4 и округлять в меньшую сторону

Если число будет 1 - Зима Если 2 - Весна 3 - Лето 4-Зима

5. -

6. Создаем 2 переменные a,b - Записываем в них длины сторон после умножаем a*b

7.Создаем переменную скорости и расстояния - Потом Расстояние делим на скорость 600/120 И получаем время в полете

8.-

Укажите номер наименьшего из трех числел

1. 101010²

2.2F [16]

3. 51[8]

Укажите, в каких системах счисления возможна следующая запись числа :121090

1. В десятичной

2. В шестнадцатеричной.

3. В восьмеричной.

4. В двоичной.

Установите соответствие.

110. 1.7

001. 2.5

101. 3.3

010. 4. 1

111. 5.2

100. 6.4

011. 7.6

Укажите, в каких системах счисления невозможна следующая запись числа: 101088

1. В десятичной

2. В двоичной

3. В восмеричной

4. В шестнадцатеричной

Запишите десятичный эквивалент восьмеричной числа 55[8]

Как будет записано 25 в восьмеричной системе счисления

Объяснение:хах