Значок + встановлений ліворуч від назви папки, означає 1папка містить файли, 2).папка містить папки, 3).папка містить будь яку інформацію.

Папка мистить будь яку информацию.

Var ar1: array[1..10] of integer; ar2: array[1..10] of integer; i: integer; begin; randomize; writeln('+ array'); for i: =1 to 10 do begin; ar1[i]: =random(1,10); write(ar1[i]: 4); end; writeln; writeln('- array'); for i: =1 to 10 do begin; ar2[i]: =random(-10,-1); write(ar2[i]: 4); end; writeln; writeln('+'); for i: =1 to 10 do write(ar1[i]+ar2[i]: 4); writeln; writeln('-'); for i: =1 to 10 do write(ar1[i]-ar2[i]: 4); writeln; writeln('*'); for i: =1 to 10 do write(ar1[i]*ar2[i]: 4); end.

//pascal abc.net версия 2.2 сборка 790 var ar: array[1..10] of integer; i: integer; begin; randomize; writeln('first array'); for i: =1 to 10 do begin; ar[i]: =random(1,10); writeln(ar[i]); if ar[i] mod 2=0 then inc(ar[i]); end; writeln('final array'); for i: =1 to 10 do writeln(ar[i]); end. пример вывода: first array 3  3  4  10  10  4  6  9  6  7  final array 3  3  5  11  11  5  7  9  7  7