Уважаемые друзья,
помогите пожалуйста, если кто может!
Для успешной сдачи экзамена не хватает только одного - програмки в турбопаскале, сам делать не ленюсь, просто не очень получается, а может литературы хорошей не нашел!
Задание:
Вводится размерность двумерного массива A(N,M) и его элементы. Составить одномерный массив, содержащий средние арифметические значения положительных элементов в столбцах исходного массива. Полученный массив вывести на экран.
Заранее благодарю за содействие.
Програмка в турбопаскале - SOS горит экзамен!!!
Модераторы: Хыиуду, MOTOCoder, Medved, dr.Jekill
Код: Выделить всё
for i:=1 to N do
for j:=1 to M do
begin
writeln('Введите элемент ',i,':',j');
readln(A[i,j]);
end;
for i:=1 to N do
begin
sum:=0;
count:=0;
for j:=1 to M do
if A[i,j]>0 then begin
sum:=sum+A[i,j];
count:=count+1;
end;
B[i]:=sum/count;
end;
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.