Расчет квадратного корня из любого элемента массива - Pascal ABC
Формулировка задачи:
Дан массив. Составить программу:
а)расчета квадратного корня из любого элемента массива;
б)расчета среднего арифметического двух любых элементов массива.
Решение задачи: «Расчет квадратного корня из любого элемента массива»
textual
Листинг программы
Var
x: Array [1..100] of Integer;
i,n,a,b: Byte;
BEGIN
Write('Введите количество элементов: ');
Readln(n);
Writeln('Массив: ');
For i:=1 to n do
begin
x[i]:=Random(100);
Write(x[i],' ');
end;
Writeln;
a:=Random(n)+1;
Writeln('Квадратный корень ',a,'-го элемента = ',Sqr(x[a]));
a:=Random(n)+1;
b:=Random(n)+1;
Writeln('Ср. арифм ',a,'-го и ',b,'-го элементов = ',(x[a]+x[b])/2:2:2);
END.
Объяснение кода листинга программы
- Объявляются переменные: x (массив), i, n, a, b (всего 5).
- Пользователю предлагается ввести количество элементов массива.
- Цикл заполняет массив случайными целыми числами от 0 до 99.
- Выводится на экран заполненный массив.
- Генерируется случайное число a, которое будет использоваться для вычисления квадратного корня.
- Вычисляется и выводится на экран квадратный корень a-го элемента массива.
- Генерируются случайные числа a и b, которые будут использоваться для вычисления среднего арифметического.
- Вычисляется и выводится на экран среднее арифметическое a-го и b-го элементов массива.