sanina611
?>

2. Задано чотири дійсних числа. Написати програму яка: 1) визначає найбільше та найменше число із введених та виводитьїх на екран із відповідними поясненнями;2) знаходить модулі чисел, що знайдені у пункті 1);3) знаходить середнє арифметичне та середнє геометричне чисел(квадратний корінь із добутку двох чисел), що знайдені у пункті2), та виводить їх на екран із відповідними поясненнями;4) знаходить гіпотенузу прямокутного трикутника із катетами, щознайдені в пункті 3 Значення гіпотенузи округлити до двохзнаків після десяткової крапкикрапки та вивести на екран ізвідповідним поясненням;5) знаходить площу круга з радіусом, який дорівнює довжинігіпотенузи, що була виведена на екран у пункті 4).​

Информатика

Ответы

Matveevanastya0170
Var a:array of integer;   
      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

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

2. Задано чотири дійсних числа. Написати програму яка: 1) визначає найбільше та найменше число із введених та виводитьїх на екран із відповідними поясненнями;2) знаходить модулі чисел, що знайдені у пункті 1);3) знаходить середнє арифметичне та середнє геометричне чисел(квадратний корінь із добутку двох чисел), що знайдені у пункті2), та виводить їх на екран із відповідними поясненнями;4) знаходить гіпотенузу прямокутного трикутника із катетами, щознайдені в пункті 3 Значення гіпотенузи округлити до двохзнаків після десяткової крапкикрапки та вивести на екран ізвідповідним поясненням;5) знаходить площу круга з радіусом, який дорівнює довжинігіпотенузи, що була виведена на екран у пункті 4).​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

yna21289
tarja4140
Konstantin_Vadimirovich
saytru5850
Svatela37
expo3217
info-mosbalkon
Vera-zero281
autofilters27
bulin2001
Дмитрий192
evsyukov1997
samoilovcoc
slazurnaya
АнастасияAndrey