Дан целочисленный массив из 20 элементов. элементы массива принимают значения от 0 до 10000 включительно. написать программу, позволяющую найти и вывести максимальное значение среди трехзначных элементов массива, делящихся на 4. если в исходном массиве нет трехзначного элемента, который делится на 4, то вывести сообщение о том, что такого числа нет.

Var   max, i : integer;   a : array [1..20]  of integer; begin   max : = -1;   for i : = 1 to 20 do read (a[i]);   for i : = 1 to 20 do     if (a[i] < 1000) and (a[i] > 99) and (a[i] mod 4 = 0) and (a[i] > max) then       max : = a[i];   if max > -1 then write (max) else write ('nety'); end.

10 rem создание массива а для заполнения списком из 10 чисел 20 dim a (1,10): 30 rem начало цикла для заполнения массива 40 for i=1 to 10 50 rem формирование запроса на ввод i-го числа 60 print “введите”, i, “-ое число” 70 rem ввод i-го числа 80 input j 90 rem присвоение i-му элементу массива значения числа 100 a(i)=j 110 next i 120 rem цикл сортировки списка чисел по возрастанию 130 for i =1 to 9 140 for j=i+1 to 10 150 rem условие для списка 160 if a(i)> a(j) then b=a(i): a(i)=a(j): a(j)=b 170 next j, i 180 rem цикл вывода списка на экран 190 for i=1 to 10 200 print а(i) 210 next i работа основного алгоритма (130-170 шаги программы) проверена на визуал бейсике. работает!

Иван: французский, китайский. антон: , японский. пётр: шведский, греческий. поясняю на сколько это возможно. 2) антон не знает шведский и французский. 3)пётр (он самый высокий - пункт 1) не знает французский. значит, французский - иван. 4) пётр не знает яп. и кит. 5) антон не знает кит. и греч. 4),5) => китайский - иван. с иваном 2),5) => антон не знает греческий и шведский (фр. и кит. уже у ивана). значит, их знает пётр. антону, в таком случае, достаются и японский. надеюсь, понятно.