Программно-технический комплекс, предназначенный для автоматизации деятельности определенного вида
Mikhail_Magomed635
13.11.2022
Const n=10; var a: array[1..n]of integer; i,k: integer; begin for i: =1 to n do begin a[i]: =random(100)-50; write(a[i]: 4); if a[i]< 0 then k: =k+1; end; writeln; writeln(k); end.
AnastasiyaSkripin1283
13.11.2022
1) const n=10; var a: array[1..n]of integer; i: integer; begin for i: =1 to n do read(a[i]); writeln; for i: =1 to n do write(a[i]: 4); end. 2) var a: array[1..1000]of real; i,n: integer; begin writeln('n ? '); readln(n); for i: =1 to n do begin writeln('input ',i,' элемент'); readln(a[i]); end; writeln; for i: =1 to n do write(a[i]: 4: 2); end. 3) var a: array[1..1000]of real; i,n: integer; begin writeln('n ? '); readln(n); for i: =1 to n do begin a[i]: =random; write(a[i]: 4: 2); end; writeln; end.