Что означает оператор inc в паскале в данном случае и на сколько увеличение?Var A:array[1..20,1..20] of integer;
i,j,n,k,s:integer;
Begin
write('Введите размерность: ');readln(n);
For i:=1 to n do
Begin
For j:=1 to n do
Begin
A[i,j]:=random(31)-15;
write(A[i,j]:4);
End;
writeln;
End;
k:=0;s:=0;
For i:=1 to n do
For j:=1 to n do
if (i0) then
Begin
inc(k);
s:=s+A[i,j];
End;
writeln('Сумма положительных над главной диагональю: ',s);
writeln('Кол-во положительных над главной диагональю: ',k);
readln;
End.
.
P.S. писал сам)
Распишем города: Воркута, Иркутск, Саратов, Тюмень, Уфа и Рязань.
В скобках возможные города:
Александр - Иркутск
Николай - Рязань
Геннадий - Тюмень
Михаил - Саратов
Денис - Уфа
Семён - Воркута
Итак, здесь будут рассуждения:
Значит читаем, Александр играл с представителем Воркуты, значит Александр не из Воркуты, ставим -
Уфимец - с Николаем, Николай не из Уфы.
Геннадий с Михаилом - значит они тоже не из Уфы и не из Воркуты
Денис играл с представителем Тюмени - Денис,Николай не из Тюмени
Николай с представителем Воркуты - Николай, Денис не из Воркуты
Из Воркуты остался Семён, ему ставим + и вычеркиваем остальные города.
Геннадий и иркутянин поделили место - Геннадий, Николай, Денис, Семен не из Иркутска, также не из Саратова
Николай остался с Рязанью.
В итоге Геннадию досталась Тюмень, а Денису Уфа.
Осталось узнать кто из пары Александр - Михаил из Иркутска/Саратова
Так как Михаил в третьем туре играл с иркутянином, он не из Иркутска.
Значит остается только 1 вариант.
ответ:
Александр - Иркутск
Николай - Рязань
Геннадий - Тюмень
Михаил - Саратов
Денис - Уфа
Семён - Воркута