chel-over
Сообщение
#73076 6.4.2011, 17:28
Составить программу,массив распечатать в виде матрицы.Xij=(ln(i+j^2))/(i^2+j^2),найти среднее арифметичекоеэлементов столбцов i=1,...5,j=1,...4.
for i:= 1 to 5 do
for j:=1 nj 4 do
x[i,j] := (ln(i + j*j)/(i*i + j*j);
for i:= 1 to 5 do begin
for j:=1 nj 4 do
write(x[i,j]:8:3);
writeln; end;
правильно?
граф Монте-Кристо
Сообщение
#73080 6.4.2011, 18:02
После for'ов begin'ы и end'ы неплохо бы поставить. Ну и объявления переменных тоже не помешает.
Не посчитали среднее по столбцам.
chel-over
Сообщение
#73087 7.4.2011, 3:54
может подскажите как подсчитать!часть программы!
граф Монте-Кристо
Сообщение
#73094 7.4.2011, 10:25
Делаете цикл по столбцам,в каждой итерации - цикл по строкам, в котором складываете все элементы столбца. Потом делите на количество.