Програмка в турбопаскале - SOS горит экзамен!!!

За вознаграждение или нахаляву (если повезёт)

Модераторы: Хыиуду, dr.Jekill, MOTOCoder, Medved

Ответить
Aleksandr Zarubin
Сообщения: 1
Зарегистрирован: 09 окт 2007, 11:04

09 окт 2007, 14:40

Уважаемые друзья,

помогите пожалуйста, если кто может!

Для успешной сдачи экзамена не хватает только одного - програмки в турбопаскале, сам делать не ленюсь, просто не очень получается, а может литературы хорошей не нашел!

Задание:
Вводится размерность двумерного массива A(N,M) и его элементы. Составить одномерный массив, содержащий средние арифметические значения положительных элементов в столбцах исходного массива. Полученный массив вывести на экран.

Заранее благодарю за содействие. :)
Хыиуду
Сообщения: 2388
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

09 окт 2007, 15:23

Код: Выделить всё

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;
Ввод матрицы писать не стал, это уже миллион раз на этом форуме было. Кроме того, надо предусмотреть случай, если в каком-то столбце нет положительных значений
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Ответить