напишите программу которая находит максимальный и минимальный из чётных пложителных элементов массива. Если в массиве нет чётных положительных элементов, нужно вывести сообщение об этом. по информатика с ответам

В том то и штука, что задачи были нестандартные. Я придерживался той же стратегии, но "разрыв шаблона" в последний момент не ограничился только олимпиадной задачей на месте простейшей вещи со вложенным циклом. Хотя другие замены были попроще.

И в этом случае требование компиляции без ошибок было незаконным.

"Программа может содержать не более трёх синтаксических ошибок следующих видов: пропущен или неверно указан знак пунктуации (запятая, точка с запятой, скобки и т.д.); неверно написано или пропущено служебное слово языка программирования; не описана или неверно описана переменная; применяется операция, недопустимая для соответствующего типа данных."

"К синтаксическим ошибкам приравнивается использование неверного типа данных (например, использование целого типа вместо вещественного для представления данных при вводе и обработке).Если одна и та же ошибка встречается несколько раз, она считается за одну ошибку"

В общем, всегда полезно знать свои права...

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016begin  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;  var b:=a.Where(x->(x>0) and x.IsEven);  if b.Count=0 then Writeln('Нет четных положительных элементов')  else Writeln('Min=',b.Min,', max=',b.Max)end.Тестовое решениеn= 17-11 15 46 -69 27 -26 68 -48 -2 9 17 7 -86 75 -58 -45 -52Min=46, max=68

//"Школьный" вариант//Pascal ABC.NET 3.1 сборка 1256Const n=10; Var ar:array[1..n] of integer; i,max,min:integer;b:boolean;beginrandomize;b:=false;max:=integer.MinValue;min:=integer.MaxValue;writeln('Array:');for i:=1 to n do begin  ar[i]:=random(-100,100);  if (ar[i]>max) and not(odd(ar[i])) and (ar[i]>0) then  begin   max:=ar[i];   b:=true;  end;  if (ar[i]<min) and not(odd(ar[i])) and (ar[i]>0) then  begin   min:=ar[i];   b:=true;  end;  write(ar[i]:4); end;writeln;if b=false then writeln('Нет удовлетворяющих условиям чисел') else begin  writeln('Max=',max);  writeln('Min=',min); end;end.Пример работы программы:Array:  98  60 -41 -88  63 -81 -77 -96 -18  51Max=98Min=60