Решить ,завтра ** тоже массивом. найти максимальный четный элемент массива и его номер при условии, что все элементы различные. составить программу

217

469

Посмотреть ответы 2

Ответы на вопрос:

Søphia

Информатика

4,8(49 оценок)

program n1; uses crt; const n=10; var a: array[1..n] of integer; i,max,k: integer; beginclrscr; randomize; for i: =1 to n do begin a[i]: =random(50); write(a[i]: 3); end; for i: =1 to n do if a[i] mod 2=0 then if a[i]> max then begin max: =a[i]; k: =i; end; writeln; writeln('элемент ',max,' с номером ',k); readlnend.