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.
msk27
08.02.2021
//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
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Значок + встановлений ліворуч від назви папки, означає 1папка містить файли, 2).папка містить папки, 3).папка містить будь яку інформацію.