Что означает оператор 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.
289
483
Ответы на вопрос:
Uses crt; var a : integer; begin readln (a); if (a> 100) then writeln('gaz') else if (a< 0) then writeln ('led') else writeln (')l(idkaya'); end.
Популярно: Информатика
-
Bonga133714.12.2021 05:24
-
Голубь2007907.11.2020 16:19
-
aisipat05530.09.2020 06:55
-
ryjakomsp00lne22.07.2022 22:03
-
ajdanayun18.08.2022 08:27
-
Tori111111121.07.2022 09:22
-
Karina071420.04.2020 12:55
-
Lissa00008.01.2020 15:57
-
minikolp1234406.06.2023 17:12
-
макс310405.09.2020 23:02