Program ccc;var x,y:integer;beginwriteln('Введите возраст!');readln(x);writeln('Стаж работы?');readln(y);if (x>=25)and (x<41)and (y>=3) thenwriteln('Подходит!')else writeln('Не подходит!');end.
Var
a:array[1..10]of array[1..10] of integer;
i, j ,P: Integer;
Begin
randomize;
writeln('Массив:');
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin a[i][j]:=random(21)-10;
write(a[i][j]:5);
end;
writeln;
end;
for i := 1 to 10 do
if a[i][i] < 0 then
begin P:=1;
for j := 1 to 10 do
P:=P*a[i][j];
writeln(i,'-я строка, П=',P);
end;
writeln;
<span>End.</span>
В первой задаче а:=5
А)а=8
В)а=8
С) остаток от деления 5/14 не знаю, может 0, тогда а:=-9, некоторые считают, что само делимое, т.е 5, тогда а=-4
Д) тоже самое или -7 или -5