|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.05.2010, 00:22 | #1 |
Пользователь
Регистрация: 06.12.2008
Сообщений: 10
|
двумерный массив
Сздравствуйте. помогите пожалуйста исправить и доделать задачу!!! очень надо!
Дана действительная матрица размера nxm. Получить последовательность b1, …, bn, где bk – это а) сумма наибольшего и наименьшего из значений элементов k-й строки; б) число отрицательных элементов в k-й строке; в) произведение квадратов тех элементов k-й строки, модули которых принадлежат отрезку [1; 1,5]. вот что я нарешала: program mas; uses crt; var mas1:array[1..n,1..m] of integer; mas2:array[1..n] of integer; i,j,min,max,suma,n,m:integer; begin clrscr; mas2:=0; writeln ('Введите число строк'); readln (n); writeln ('Введите число столбцов'); readln (m); for i:=1 to n do begin for j:=1 to m do begin mas1[i,j]:=-random(100)+random(100); write (mas1[i,j]); end; writeln; end; writeln; for i:=1 to n do begin j:=1; suma:=0; max:=mas1[i,j]; min:=mas1[i,j]; for j:=1 to n do begin if mas1[i,j]>max then max:=mas1[i,j]; if mas1[i,j]<min then min:=mas1[i,j]; end; suma:=min+max; write (suma,' '); end; begin if a[i,j]<0 then inc(mas2[i]); end; write ('mas2[',i,'] = ',mas2[i]); readkey; end. как сделать пункт "В" я не знаю( Последний раз редактировалось 4ERRY; 17.05.2010 в 00:25. |
17.05.2010, 03:52 | #2 |
Регистрация: 15.05.2010
Сообщений: 3
|
тут вообще все неправильно, счас сделаю
|
17.05.2010, 04:28 | #3 |
Регистрация: 15.05.2010
Сообщений: 3
|
<PASKAL>
program mas; uses crt; const n=3; m=4; var mas1:array[1..n,1..m] of real; mas2:array[1..n] of real; i,j:integer; min,max,sum:real; procedure input; begin writeln('our Matrix'); for i:=1 to n do begin for j:=1 to m do begin mas1[i,j]:=-random(100)/random(100); write (mas1[i,j]:3:3,' '); end; writeln(''); end; end; procedure _A_; begin writeln('Sum of Min and Max'); for i:=1 to n do begin max:=mas1[i,j]; min:=mas1[i,i]; for j:=1 to m do begin if min>mas1[i,j] then min:=mas1[i,j]; if max<mas1[i,j] then max:=mas1[i,j]; end; sum:=max+min; writeln(sum:3:3); end; end; procedure _b_; var k:integer; begin writeln('our number of negative numbers'); for i:=1 to n do begin k:=0; for j:=1 to m do begin if mas1[i,j]<0 then k:=k+1; end; writeln(k:2); end; end; procedure _C_; var temp:real; begin writeln('adn the last'); for i:=1 to n do begin temp:=1; for j:=1 to m do begin if (abs(mas1[i,j])>=1) and (abs(mas1[i,j])<=1.5) then temp:=temp*mas1[i,j]*mas1[i,j]; end; writeln(temp:3:3); end; end; begin randomize; clrscr; input; _A_; _b_; _C_; readkey; end. </PASKAL> лови)) |
17.05.2010, 17:55 | #4 |
Пользователь
Регистрация: 06.12.2008
Сообщений: 10
|
пасииииба огромное!)))))))))
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
C++ двумерный массив | Aniritake | Помощь студентам | 1 | 14.04.2010 22:06 |
двумерный массив | Laplas | Помощь студентам | 5 | 07.01.2010 15:42 |
Двумерный массив | Бибик | Помощь студентам | 18 | 06.01.2010 15:31 |
двумерный массив | kolobok00100 | Помощь студентам | 2 | 25.12.2009 00:01 |
Двумерный массив, одномерный массив. | Branbal | Помощь студентам | 14 | 18.11.2009 12:40 |