Дан целочисленный массив из 200 элементов, в котором записаны значения последовательных результатов измерений. Элементы массива
могут принимать целые значения от 0 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, который выполняет выбраковку данных в массиве: если максимальный чётный элемент массива меньше максимального нечётного, все чётные элементы заменяются на нули, иначе все нечётные элементы заменяются на нули. Например, для исходного массива из восьми элементов: 7 1 3 2 14 5 9 6 программа должна вывести (по одному числу в строке) числа 0 0 0 2 14 0 0 6 Язык Паскаль
Если на паскале program qweqrq; var a,b,c:integer; begin writeln('a'); readln(a); writeln('b'); readln(b); if a<b then begin c:=sqr(a); writeln(c); end; else begin c:=sqr(b); writeln(c); end; end.