Маємо одномірні
матеріальні масиви А=[ai] ,В=[bi]m, С=[ci]n.Створити процедуру вводу масивів.
Для кожного з них
визначити: квадратний корінь з суми
квадратів елементів та вивести їх на екран;
– знайти їх суму та
вивести її на екран.
(i, m, n - маленькие)
const
i = 2; // размеры массивов
m = 3;
n = 5;
var
A :array[1..i] of integer; // массивы
B :array[1..m] of integer;
C :array[1..n] of integer;
sumA,sumB,sumC : real; // переменные для корней сумм квадратов
j : integer; //управляющая переменная
begin
// вводим данные
write('Введите элементы первого массива: ');
for j := 1 to i do read(A[j]);
write('Введите элементы второго массива: ');
for j := 1 to m do read(B[j]);
write('Введите элементы третьего массива: ');
for j := 1 to n do read(C[j]);
//обнуляем переменные
sumA := 0; sumB := 0; sumC := 0;
// считаем сумму квадратов
for j := 1 to i do sumA := sumA + (A[j]*A[j]);
for j := 1 to m do sumB := sumB + (B[j]*B[j]);
for j := 1 to n do sumC := sumC + (C[j]*C[j]);
// находим корень квадратов
sumA := sqrt(sumA);
sumB := sqrt(sumB);
sumC := sqrt(sumC);
// выводим на экран
writeln('Корень квадратный суммы квадратов первого массива равен ',sumA);
writeln('Корень квадратный суммы квадратов второго массива равен ',sumB);
writeln('Корень квадратный суммы квадратов третьего массива равен ',sumC);
end.
⇢