2. Задано чотири дійсних числа. Написати програму яка: 1) визначає найбільше та найменше число із введених та виводить
їх на екран із відповідними поясненнями;
2) знаходить модулі чисел, що знайдені у пункті 1);
3) знаходить середнє арифметичне та середнє геометричне чисел
(квадратний корінь із добутку двох чисел), що знайдені у пункті
2), та виводить їх на екран із відповідними поясненнями;
4) знаходить гіпотенузу прямокутного трикутника із катетами, що
знайдені в пункті 3). Значення гіпотенузи округлити до двох
знаків після десяткової крапки
крапки та вивести на екран із
відповідним поясненням;
5) знаходить площу круга з радіусом, який дорівнює довжині
гіпотенузи, що була виведена на екран у пункті 4).
i,n:integer;
begin
//Заполняем массив сл. числами и выводим
//Нумерация массива с 0
write('Число элементов массива ');readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
a[i]:=random(41)-20;
write(a[i]:4);
end;
writeln;
//Вывод номеров четных элементов
for i:=0 to n-1 do
if a[i] mod 2 = 0 then writeln(a[i]:4, ' номер: ',i );
end.
Тестовое решение:
Число элементов массива 10
-5 14 3 13 4 1 18 7 12 -14
14 номер: 1
4 номер: 4
18 номер: 6
12 номер: 8
-14 номер: 9