Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 14.11.2012, 23:56   #1
Андрей77777
Пользователь
 
Регистрация: 14.11.2012
Сообщений: 36
Репутация: 10
По умолчанию Обработка двумерного массива

В заданной матрицы Q(4,5) найти сумму элементов меньших заданного числа D.
Вывести исходную матрицу и исчисленную сумму.
Андрей77777 вне форума   Ответить с цитированием
Старый 15.11.2012, 00:04   #2
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,842
Репутация: 6832
По умолчанию

Показывай как вводишь массив.
__________________
I'm learning to live...
Stilet вне форума   Ответить с цитированием
Старый 15.11.2012, 15:00   #3
NinaSSS
Пользователь
 
Регистрация: 30.10.2012
Сообщений: 34
Репутация: 38
По умолчанию

Код:

program massiv;   uses crt;
 const n=4; m=5;
var q:array[1..10,1..10] of integer;
i,j,k,s,d :integer; p:real;
 begin  clrscr;
  writeln('vvedite d');
 readln(d);
 randomize;
 for i:=1 to n do begin
 for j:=1 to m do begin
 q[i,j]:=random(10);
 end; end;
  for i:=1 to n do begin
 for j:=1 to m do begin
write(q[i,j]:3); end; writeln; end;
 s:=0;
  for i:=1 to n do begin
 for j:=1 to m do begin
 if q[i,j]<d then  s:=s+q[i,j];
 end;end;
 writeln('summa=',s);

  end.

NinaSSS вне форума   Ответить с цитированием
Старый 15.11.2012, 15:05   #4
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,842
Репутация: 6832
По умолчанию

Цитата:
const n=4; m=5;
var q:array[1..10,1..10] of integer;
А почему константы не используешь для описания размерности массива?
__________________
I'm learning to live...
Stilet вне форума   Ответить с цитированием
Ответ

Опции темы

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Обработка двумерного массива. maxim260489 Паскаль 1 16.01.2012 13:24
Обработка двумерного массива Happy001 Помощь студентам 0 07.03.2011 02:41
Обработка двумерного массива Happy001 Помощь студентам 1 04.03.2011 17:24
Обработка двумерного массива tema001 Помощь студентам 6 30.12.2009 20:33
Обработка двумерного массива (Pascal) VertU Помощь студентам 9 27.06.2009 08:02


17:33.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru