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

 





- Текстовая версия 22.09.2019 21:10
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name