Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 189566
09.06.2016, 21:59
0.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте! Прошу помощи в следующем вопросе:

Написать программу в Паскаль : Найдите среднее арифметическое и геометрическое значение
соответствующих элементов массивов М и N . Выведите результаты на эк-
ран в виде одномерных массивов.

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
10.06.2016, 16:57
общий
это ответ
Здравствуйте, amelya.kuro!

Смотрите код:
[code lang=pascal h=200]const
a=10;
var
i:integer;
m,n:array[1..a]of integer;
begin
randomize;
{создаем и выводим массив М}
writeln('Massiv M:');
for i:=1 to a do
begin
m[i]:=random(50);
write(m[i]:7);
end;
writeln;
{создаем и выводим массив N}
writeln('Massiv N:');
for i:=1 to a do
begin
n[i]:=random(50);
write(n[i]:7);
end;
writeln;
{среднеарифметическое}
writeln('arifmetic:');
for i:=1 to a do
write((m[i]+n[i])/2:7:3);
writeln;
{среднегеометрическое}
writeln('geometric:');
for i:=1 to a do
write(sqrt(m[i]+n[i]):7:3);
writeln;
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа