Дан массив, содержащий 2016 положительных целых чисел, не превышающих 1000. необходимо найти и вывести максимальный из тех элементов этого массива, шеснадцатиричная запись которых содержит ровно 2 цифры. если таких чисел в массиве нет, ответ считается равным нулю. исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных. const n=2016; var a: array [1..n] of integer; i, m, k: integer; begin for i: =1 to n do readln(a[i]); … end. в качестве ответа вам необходимо фрагмент программы, который должен находиться на месте многоточия. вы можете записать решение также на другом языке программирования (укажите название и версию языка программирования). в этом случае вы должны использовать те же самые исходные данные и переменные, какие были предложены в условии.

148

349

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

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

GuardiaN55

Информатика

4,7(68 оценок)

Const n=2016; var a: array [1..n] of integer; i, m: integer; begin for i: =1 to n do a[i]: =random(1001)+1; // readln(a[i]); m: =0; // 10(16) = 16(10); ff(16)=16*15+15=255 for i: =1 to n do if (a[i]> =16)and(a[i]< =255)and(a[i]> m) then m: =a[i]; writeln('m = ',m); end. пример: m = 254

aajlarov

Информатика

4,6(95 оценок)

const n =30; var s: string; i,k,m: integer; a: array[1..n] of integer; b: array[1..n] of integer; begin for i: =1 to n do readln(a[i]); k: =1 ; for i: =1 to n do begin str(a[i],s); if pos('5',s) = 0 then begin b[k]: = a[i]; k: =k+1; end; end; for i: = 1 to n do a[i]: =b[i]; for i: = 1 to n do write(a[i],' '); end.