program Vyv;
var a,b,i:integer;
begin
write('Введите начало диапазона a = ');
readln(a);
write('Введите конец диапазона b = ');
readln(b);
for i:=a to b do
if (i<0) and (i mod 2 = 0) then write(i,' ; ')
end.
<span>var
</span>ar:array[1..10] of integer;
sr,i:integer;
begin
randomize;
for i:=1 to 10 do begin
ar[i]:=random(11);
sr:=sr+ar[i];
end;
writeln('Среднее арифметическое равно = ',sr/10);
<span>end.</span>
если выполнение именно условий выше <em>и</em> левее
ответ а
Вот тебе решение, на уравнения не знаю