IPB
ЛогинПароль:

> 

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Задача на матрицу.Pascal., Помогите решить, пожалуйста.
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 5
Пол: Мужской

Репутация: -  0  +


Сформировать и вывести массив, состоящий из номеров столбцов, в которых второй элемент меньше первого.Вычислить средние арифметические в этих столбцах и заменить элементы этих столбцов соответствующими значениями средних арифметических.
Помогите, пожалуйста.
Заранее спасибо.
Из наработок:
Program Your_reality;
Var A:array[1..3,1..4] of real;
i,j:byte;
S,Sr:real;
begin
For i:=1 to 3 do
For j:=1 to 4 do
read(A[i,j]);
For i:=1 to 3 do
For j:=1 to 4 do
A[i,j]:=i;
S:=0;
For j:=1 to 4 do
S:=S+A[i,j];
Sr:=0;
Sr:=Sr+A[i,j];
Sr:=S/j;
For i:=1 to 3 do
For j:=1 to 4 do
write(A[i,j]:8:3);
Writeln;
end



Сообщение отредактировано: lolbec -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 21.07.2018 22:46
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"