Program Turbo; uses CRT; Var N,S:integer; Begin S:=0; Write('N = '); ReadLn(N); For N:= 1 to N do S:=S+N; if S=N*(N+1)/2 then WriteLn('Тождество верно (',S,'=',S,')') else WriteLn('Тожедство ложно','(',S,'<>',N*(N+1)/2,')') End.
Var ar:array[1..10] of integer; i:integer; begin; for i:=1 to 10 do begin; write('Введите ',i,' элемент массива:'); readln(ar[i]); if ar[i]<0 then ar[i]:=abs(ar[i]); end; writeln('Final array:'); for i:=1 to 10 do write(ar[i]:4); <span>end.</span>