Ответ:Блин,тоже олимпиада.Я тоже не могу это сделать.А ты сделал 1,3,4
Объяснение:
nst N=15;
var
a: array [1..N] of integer;
i,i1:integer;
flag:boolean;
begin
flag:=false;
for i:=1 to N do
begin
a[i]:=random(41)-20;
if (flag=false) and (a[i]<0) then
begin
i1:=i;
flag:=true;
end;
write(a[i]:4);
end;
writeln;
if flag then
writeln('Первое отрицательное на ',i1,' позиции')
else writeln('Отрицательных нет');
end.
// PascalABC.NET 3.1, сборка 1211 от 31.03.2016
begin
var a:=ArrRandom(10,-50,50); a.Println;
Writeln('Отрицательных ',a.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
37 -20 2 -13 10 9 -25 11 8 -3
Отрицательных 4
Неверно:
<span>1, видеоадаптер цветного монитора может работать только в графическом режиме </span>