Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Новичок1
0 / 0 / 0
Регистрация: 26.10.2014
Сообщений: 31
#1

Найти среднее арифметическое в каждой строке массива

11.12.2011, 15:37. Просмотров 862. Ответов 1
Метки нет (Все метки)

Найти среднее арифметическое в каждой строке массива A[1..6, 1..7] и определить номер строки с наименьшим арифметическим
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.12.2011, 15:37
Ответы с готовыми решениями:

Найти среднее арифметическое в каждой строке в файле
Дан файл, содержащий целые числа. Найти среднее арифметическое в каждой строке...

Найти среднее арифметическое элементов в каждой строке квадратной матрицы
1.Обработка двумерного массива. Найт среднее арифмитческое элементов в каждой...

Найти среднее арифметическое в каждой строчке массива
Найти среднее арифметическое в каждой строчке массива А и отнять его от каждого...

Найти среднее арифметическое каждой строки массива
Задан двумерный массив А (2<N<20), элементами которого являются действительные...

Найти в каждой строке матрицы среднее арифметическое и поставить его на место минимума строки
Матрица вводится с клавиатуры. Нужно найти в каждой строке матрицы среднее...

1
КонецСвета
Почетный модератор
7928 / 3899 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
11.12.2011, 15:57 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
uses crt;
var a: array[1..6,1..7] of integer;
    i,j,ns: integer;
    sar: array [1..6] of real;
    sarm: real;
begin
randomize;
writeln('Дан массив');
for i:=1 to 6 do
    begin
    sarm:=0;
    for j:=1 to 7 do
        begin
        a[i,j]:=random(19)-9;
        write(a[i,j]:4);
        sarm:=sarm+a[i,j];
        end;
    sar[i]:=sarm/7;
    writeln;
    end;
writeln('Среднее арифметическое по строкам');
sarm:=sar[1];
for i:=1 to 6 do
    begin
    write(sar[i]:5:1);
    if sar[i]<sarm then
       begin
       sarm:=sar[i];
       ns:=i;
       end;
    end;
writeln;
writeln('Минимальное значение ср.ар. =',sarm:4:1,' в строке ',ns);
readkey
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.12.2011, 15:57

Найти среднее арифметическое в каждой строке матрицы А и, определив минимальное прибавить его к элементам той
Найти среднее арифметическое в каждой строке матрицы А и, определив минимальное...

Найти среднее арифметическое для каждой строки двухмерного массива
Найти среднее арифметическое для каждой строки двухмерного массива. Ну это...

Найти среднее арифметическое элементов для каждой строки двухмерного массива.
1) Найти среднее арифметическое элементов для каждой строки двухмерного...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru