var a:array[1..10,1..10]of integer;
i,j,k,s:integer;
begin
for i:=1 to 10 do for j:=1 to 10 do a[i,j]:=random(9)+1;
for i:=1 to 10 do begin for j:=1 to 10 do write(a[i,j],' '); if j=10 then writeln; end;
s:=1;
for i:=2 to 10 do begin k:=a[i,1];
for j:=2 to 10 do begin
if i mod 2 = 0 then if a[i,j]>k then k:=a[i,j];
if (j=10) and (i mod 2=0) then s:=s*k;
end;
end;
Var a,b,c:real;
begin
writeln('Введите a,b,c');
readln(a,b,c);
if (a<=3) and (a>=-1) then writeln(a, ' принадлежит промежутку [-1,3]');
if (b<=3) and (b>=-1) then writeln(b, ' принадлежит промежутку [-1,3]');
if (c<=3) and (c>=-1) then writeln(c, ' принадлежит промежутку [-1,3]');
end.
Векторная. У нас в тестах тоже такое было я написал векторная и это правильно