помогите написать прогу по паскалю
Опубликовано 09 Июль 2010 в 20:52 Автор: admin
Рекурсия тут может пригодиться только как замена цикла. cоnst n=10; type TArrayType=integer; TArray=array[1..n] of TArrayType; var a:TArray; procedure ArrOut(j:integer); begin if j>n then begin if odd(j) then ArrOut(2); end else exit; writeln(j,a[j]); ArrOut(j+2); end; begin // Тут заполнение массива напиши ArrOut(1); Readln; end.
круто, ты хоть бы сам сел минутку хоть что то написал бы… cоnst max=100; array mas [1..max]; for i=1 do max begin if max/2 then четное else нечетное end;