|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.01.2012, 23:03 | #1 |
Новичок
Джуниор
Регистрация: 25.01.2012
Сообщений: 2
|
не понимаю где ошибка
program laba3;
var max,s,i,j,n:integer; x:array[1..99,1..99] of integer; begin repeat writeln('vvedite N'); readln(n); until (n>10 and (n mod 2=1); s:=1; for i:=1 to n do for j:=1 to j do begin writeln('vvedite x[',i,j,']'); readln(x[i,j]); if (i=1) and (j=n) then max:=x[i,j]; if (i+j >= n+1) or ((i+j >= n+1)and(i <= n div 2 +1)) then begin s:= s * x[i,j]; if max < x[i,j] then max := x[i,j]; end; writeln ( 'proizvedenie ravno : ',s, 'max element : ',max); readln; end. |
25.01.2012, 23:21 | #2 |
Форумчанин
Регистрация: 15.10.2011
Сообщений: 306
|
не знаю что у вас за задание...но проверку на ввод можно сделать таким образом
Код:
помог?! - ткни в весы))!
Если твоя программа выполняет мистические действия, значит, ты сделал что-то невероятно тупое...
|
25.01.2012, 23:49 | #3 |
Новичок
Джуниор
Регистрация: 25.01.2012
Сообщений: 2
|
задача на матрицу
1вариант http://cs305902.vkontakte.ru/u235787...x_ca998b67.jpg |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не понимаю где ошибка | ВДПУ | Помощь студентам | 2 | 21.11.2011 20:50 |
Ошибка и не понимаю где она | cargo29 | Общие вопросы Delphi | 4 | 10.02.2011 17:11 |
Не понимаю где увидеть то, что передается в Post запросе TBrowser'ом | KentOne | Работа с сетью в Delphi | 0 | 03.08.2010 18:48 |
Не понимаю в чём ошибка | levandowskiy | Общие вопросы C/C++ | 3 | 23.08.2009 12:48 |
Не понимаю в чём ошибка | Editor | Общие вопросы Delphi | 4 | 24.04.2008 08:00 |