Программа в Pascal. Дан массив A размера N. Найти максимальный элемент из его элементов с нечетными номерами: A1, A3, A5, … . СРОЧНО!!!!!!!!!!!!!!
Answers & Comments
Canore
Program fff; const n = 5; var a : array[1..n] of integer; i, max : integer;begin for i := 1 to n do begin a[i] := random(101); write(a[i], ' '); end; max := a[1]; for i := 2 to n do begin if not (i mod 2 = 0) then begin if (max < a[i]) then max := a[i]; end; end; writeln(); writeln(max); end.
Answers & Comments
const n = 5; var a : array[1..n] of integer; i, max : integer;begin for i := 1 to n do begin a[i] := random(101); write(a[i], ' '); end; max := a[1]; for i := 2 to n do begin if not (i mod 2 = 0) then begin if (max < a[i]) then max := a[i]; end; end; writeln(); writeln(max); end.