Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 21.05.2013
Сообщений: 3
1

Вывести на печать исходный массив в виде матрицы и средние арифметические каждой строки матрицы с указанием номера строки

22.05.2013, 19:33. Просмотров 1353. Ответов 1
Метки нет (Все метки)


О великие знатоки паскаля, прошу у вас помощи
Задача : Ввести двумерный массив 3х3. Вывести на печать исходный массив в виде матрицы и средние арифметические каждой строки с указанием номера строки.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.05.2013, 19:33
Ответы с готовыми решениями:

Найдите средние арифметические нечетных элементов каждой строки матрицы В (6,4). Результат запишите в массив Х
Найдите средние арифметические нечетных элементов каждой строки матрицы В (6,4). Результат запишите...

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

Средние арифметические значения неотрицательных элементов каждой строки матрицы.
вычислить средние арифметические значения неотрицательных элементов каждой строки матрицы ,...

Найти средние арифметические положительных элементов каждой строки матрицы
Прошу вас, помогите) Найти средние арифметические положительных элементов каждой строки...

1
3020 / 1908 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
22.05.2013, 19:50 2
Лучший ответ Сообщение было отмечено Noojer как решение

Решение

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
Uses crt;
Var
  x: Array [1..3,1..3] of Integer;
  i,j: Byte;
  s: Integer;
BEGIN
Writeln('Введите элементы: ');
For i:=1 to 3 do
For j:=1 to 3 do
Readln(x[i,j]);
Clrscr;
For i:=1 to 3 do
begin
  For j:=1 to 3 do
  Write(x[i,j]:3);
  Writeln
end;
Writeln;
For i:=1 to 3 do
begin
  s:=0;
  For j:=1 to 3 do
  s:=s+x[i,j];
  Writeln(i,' = ',s/3:2:2);
end;
Readln
END.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.05.2013, 19:50

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Найти средние арифметические положительных элементов каждой строки матрицы
Здравствуйте! Взываю о помощи. Найти средние арифметические положительных элементов каждой...

Найти средние арифметические значения положительных элементов каждой строки матрицы
Дана квадратная матрица A(nхn). Построить вектор b, где bi, i=1,…,n – среднее арифметическое...

Найти средние значения элементов каждой строки матрицы и записать их в одномерный массив
Сформировать двумерный массив А размером 6*8 с помощью генератора случайных чисел и вывести...

Найти средние геометрические нечетных элементов каждой строки матрицы, результат записать в одномерный массив
Program lab5_2; Uses Crt; Type matr = array of integer; mas = array of integer; Var a:matr;...


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

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

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