12.07.2011, 15:34 | #1 (permalink) |
Новичок
Регистрация: 11.07.2011
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите довести до ума программу
uses crt; var a:array[1..n,1..n]of integer; I,j,rasn,min,rez:integer; begin for i:=1 to n do for j:=1 to n do begin write('ввод елементов =', i,',',j,'':4); readln(a[i,j]); end; for i:=1 to n do begin rez:=a[1,1]; for i:=1 to n do for j:=1 to n do if a[i,j]>rez then rez:=a[i,j]>rez then min:= rez; End; for i:=1 to n do begin if a[i,i]=0 then for j:=1 to n do rizn:=rizn-a[i,j]; writeln('rizn=',rizn); End; Writeln('min=',min); readln;end. |
12.07.2011, 15:34 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Сейчас лучшее, что можно сделать - это прочитать схожие посты TDA 2003. Помогите довести до ума Помогите отладить программу Как довести в ASUS A6B00R память до 2Гб? Помогите написать программу |
13.07.2011, 21:06 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ну, если я правильно понял задание, то как-то так:
Код:
const n=4; var a:array[1..n,1..n] of integer; I,j,razn,min:integer; begin for i:=1 to n do for j:=1 to n do begin write('a[', i,',',j,']= '); readln(a[i,j]); end; min:=a[1,1]; for i:=1 to n do for j:=1 to n do if a[i,j]<min then min:=a[i,j]; for i:=1 to n do if a[i,i]=0 then begin razn:=a[i,1]; for j:=2 to n do razn:=razn-a[i,j]; writeln('razn[',i,']= ',razn); end; Writeln('min= ',min); readln; end. 1. Uses CRT. Прекрасно - но где в программе хоть одна команда модуля CRT? Я таковых не увидел. 2. Где константа n? Откуда, интересно, компьютер возьмет данные о размере массивов? 3. В одном месте rasn, в другом - razn, в третьем - rizn. И Вы полагаете, что компьютер поймет, что программист "имеет в виду" одно и то же? И не надейтесь! 4. rez:=a[i,j]>rez - это еще что за ахинея? 5. Ищете минимум, а знак неравенства поставлен так, что находите максимум. И т.д., и т.п., и проч. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|