Нажми на саму ячейку и вверху в тоненькой (под раскладкой) строке будет формула.
Program massive (input, output);
type vector=array[1..10] of integer;
var I:integer;
z:vector;
begin
for I:=1 to 10 do
read (z[I]);
for I:=1 to 10 do
if z[I]<0 then z[I]:=z[i]*(-1);
for I:=1 to 1o do
write (z[I], ' ');
end.
Объяснение:
во вложениях...
^ – у меня знак не ставится, но выполняет свои действия, у себя его ставьте!
Var
a: array[1..10, 1..10] of integer;
i, j, k: integer;
begin
k := 1;
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
if(j >= i) then begin
a[i, j] := k;
k += 1;
end
else a[i, j] := 0;
write(a[i, j]:3);
end;
k := 1;
writeln();
end;
<span>end.</span>
<span>д) мне так кажется незнаю почему но мне кажется кинотеатр</span>