+ Ответить в теме
Показано с 1 по 2 из 2

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

  1. #1
    Aleksandr Zarubin is on a distinguished road
    Регистрация
    09.10.2007
    Возраст
    38
    Сообщений
    1
    Вес репутации
    0

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

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

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

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

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

    Заранее благодарю за содействие.

  2. По умолчанию

     
    Хотите избавиться от рекламы? Зарегистрируйтесь
  3. #2
    Moderator Куратор
    system architect
    Хыиуду has a spectacular aura about Хыиуду has a spectacular aura about
    Регистрация
    06.03.2005
    Адрес
    Москва
    Сообщений
    2,388
    Вес репутации
    19

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

    Код :
    1. for i:=1 to N do
    2. for j:=1 to M do
    3. begin
    4.   writeln('Введите элемент ',i,':',j');
    5.   readln(A[i,j]);
    6. end;
    7. for i:=1 to N do
    8. begin
    9.   sum:=0;
    10.   count:=0;
    11.   for j:=1 to M do
    12.     if A[i,j]>0 then begin
    13.        sum:=sum+A[i,j];
    14.        count:=count+1;
    15.     end;
    16.   B[i]:=sum/count;
    17. end;
    Ввод матрицы писать не стал, это уже миллион раз на этом форуме было. Кроме того, надо предусмотреть случай, если в каком-то столбце нет положительных значений
    Искусство программирования - заставить компьютер делать все то, что вам делать лень.
    Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.

+ Ответить в теме

Похожие темы

  1. Нужна програмка
    нужна програмка которая сможет соединиться к базе данных через ввод кода на картинке, (картинка простая). далее заполнить заранее приготовленные...
    от Armaghedo в разделе Вопрошайка
  2. памагите с программоми горит
    Памагите завтра экзамен а я не пайму как написать программу чтоб пахала напишите полностью её ,буду благодарен. дан символ C и строки S, S0. перед...
    от wewe в разделе Delphi и Pascal
  3. Помогите горит
    Народ помогите решить задачи на pascal: проанализировать текст хранящийся в файле: А) подсчитать количество строк, длина которых меньше 10...
    от krot56 в разделе Delphi и Pascal
  4. Печатать HTML! Горит!
    Мне надо печатать HTML страницу с локальной HDD. Делаю это WordServerom, но сие есть тормозно, надо обрабатывать 2-3 страницы в секунду ....
    от alexx в разделе MS Office и VB(A).
  5. Нужна програмка для связи компа с мобилкой.
    Народ кто может написать? Суть: комп управляет всеми звонками мобилки (на украине есть безлимитные пакеты , так для использования их на полную...
    от Anonymous в разделе Вакансии и заказы для программистов

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения