- program n_1;
- var n, i: integer;
- arr: array [1..10000] of integer;
- begin
- write (‘Введите размер массива: ‘);
- readln (n);
- for i := 1 to n do begin
- write (‘arr[‘,i,’] := ‘);
- readln (arr[i]);
- if not(odd(arr[i])) then arr[i] := 99;
- end;
- for i := 1 to n do //выводит массив на экран
- writeln (‘arr[‘,i,’] = ‘, arr[i]);
- end.