|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.02.2012, 18:31 | #1 |
Пользователь
Регистрация: 11.12.2009
Сообщений: 97
|
двумерный массив. числовой файл.+ листинги
1. Ввести целочисленный двумерный массив , вывести его. Найти сумму положительных угловых элементов. Найденной суммой заменить строку содержащую минимальный элемент и столбец, содержащий максимальный элемент.
2. Задан числовой файл . Найти сумму компонент, стоящих между минимальной и максимальной. Заменить этой суммой все элементы из которых она сформирована (элементы между максимумом и минимумом). Файл вывести как до, так и после преобразования. ^ вот 2 задачи. сначала давайте разберемся с первой. вот что я нацарапал : program laba1; const Creep=20; var z,i,j,k, sum,Imin,Jmax,IndexI,Indexj,n,m: integer; A:array[1..Creep,1..Creep] of integer; b:array[1..500] of integer; begin cls; sum:=0; z:=0; writeln('vvedite 4erez _ N(kolvo strok) and M(kilvo stolbcov)='); readln(n,m); writeLn('Вводим элементы массива A:'); for i:=1 to N do for j:=1 to M do begin write('A[',i,',',j,']='); readLn(A[i,j]); end; for i:=1 to N do for j:=1 to M do if a[i,j]<imin then begin imin:=a[i,j];IndexI:=i; end; writeln('строка в которой миним элемет ',IndexI); for i:=1 to N do for j:=1 to M do if a[i,j]>jmax then begin jmax:=a[i,j];Indexj:=j; end; writeln('столбец в которой максимальный элемет ',Indexj); b[1]:=a[1,1]; b[2]:=a[1,m]; b[3]:=a[n,1]; b[4]:=a[n,m]; for i:=1 to z do begin writeln(b[i]:3); end; for i:=1 to z do if b[i]>0 then begin sum:=sum + b[i]; end; writeln('summa=', sum); end. не могу найти где скрывается косяк, корректно ли идёт присвоение элементам массива b крайних элементов массива a ( и правильно ли они указаны), правильно ли найдены мин/макс... в общем помогите достроить программу плиз. и подскажите начало второй. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
создать двумерный массив, заполнить случайными числами, сохранить в файл | buba | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 17.03.2015 20:08 |
двумерный числовой массив | Natasha_b | Помощь студентам | 1 | 07.12.2010 23:50 |
двумерный числовой массив | Natasha_b | Общие вопросы C/C++ | 4 | 07.12.2010 17:13 |
Двумерный массив и файл | spamer | Общие вопросы Delphi | 4 | 21.06.2009 01:20 |