Ответ:
создаешь переменную допустим а = 1001
запускаешь цикл на проверку элементов массива и в цикле условие
если массив[i] >=0 и массив[i] mod 10 <> 3 и mass[i]<a то а = массив[i]
конец цикла
а потом после цикла условие если а = 1001 то вывожишь Не найдено
иначе
выводишь а
Var a,b,c:int64;
begin
read(a,b,c);
writeln(c);
writeln(a);
writeln(b);
<span>end.</span>
Здравствуй, в Excel имеются формулы, а к ним справочник с пояснениями логических операций. Расписано более чем доступно...
var a,b,c,y,x,z:real;
begin
readln(a,b,c);
writeln('a = ',a);
writeln('b = ',b);
writeln('c = ',c);
writeln('y = ',(a-2)/(b*b-c):0:3);
writeln('x = ',(b*b+4*a*c)/(2*a):0:3);
writeln('z = ',(a/b)+(c/a)-((a*b+c*c)/(b*c)):0:3);
end.