Написать программу по информатике Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от 10 до 1000 включительно. Напишите программу, позволяющую найти и вывести наибольший из элементов массива, шестнадцатеричная запись которого оканчивается на букву С. Если таких чисел нет, нужно вывести ответ «нет».
const N = 20;
var a: array [1..N] of integer;
i, j, k: integer;
begin
for i := 1 to N do
readln(a[i]);
...
end.
Написать программу по информатике Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от 10 до 1000 включительно. Напишите программу, позволяющую найти и вывести наибольший из элементов массива, шестнадцатеричная запись которого оканчивается на букву С. Если таких чисел нет, нужно вывести ответ «нет».
const N = 20;
var a: array [1..N] of integer;
i, j, k: integer;
begin
for i := 1 to N do
readln(a[i]);
...
end.
const N = 20;
var a: array [1..N] of integer;
i, j, k: integer;
begin
for i := 1 to N do
readln(a[i]);
...
end.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
const N = 20;
for i := 1 to N dovar a: array [1..N] of integer;
i, maxNum, maxHexNum: integer;
begin
maxNum := -1;
maxHexNum := -1;
begin
readln(a[i]);
if (a[i] mod 16 = 12) and (a[i] > maxNum) then
begin
maxNum := a[i];
maxHexNum := i;
end;
end;
if maxHexNum = -1 then
writeln('нет')
else
writeln('Наибольший элемент массива, шестнадцатеричная запись которого оканчивается на букву C: ', maxNum);
end.