![]() |
|
#1
|
|||
|
|||
![]() Добрый день,помогите пожалуйста найти ошибку.Задание такое: Задан целочисленный одномерный массив A из N элементов. Найти номер первого максимального элемента среди элементов, значения которых лежат в диапазоне [c,d] и расположенных до последнего элемента с нечетным значением. Вот код:
Код:
Program lab6; {$APPTYPE CONSOLE} Uses SysUtils; Const nmax=20; var a:array [1..nmax] of integer; n,i,d,c,nom,max:integer; dat,res:textfile; begin AssignFile(dat, paramstr(1)); reset(dat); read(dat, n,c,d); for i:=1 to n do read(dat, A[i]); CloseFile(dat); AssignFile(res, paramstr(2)); rewrite(res); writeln(res, 'Исходные данные:'); writeln(res, 'n = ',n); writeln(res, 'c=',c); writeln (res, 'd=',d); write(res, 'Исходный массив: '); for i:=1 to n do write(res, A[i]); writeln(res,''); nom:=0; max:=c; for i:=c+1 to d do if a[i]>a[max] then max:=i; writeln(res,'max',max); for i:=n-1 downto 1 do begin if a[i] mod 2=1 then nom:=i; end; if max<nom then writeln(res,'номер',max) else writeln (res,'Такого элемента нет'); CloseFile(res); writeln('Press Any Key'); readln; end. Последний раз редактировалось M.A.D.M.A.N., 09.12.2014 в 21:50. |