)
2. Дано 2 массива из 80 элементов. Заполнить первый с помощью генератора случ. Чисел на интервале (50,100) и заполнить второй массив корнями квадратными из чисел исходного массива.

Ответы: 1
ЛАРИСА КАЗАКОВА
2017-11-15 10:35
1) Program n1; var a: array[1..10] of integer; i: integer; begin randomize; for i:=1 to 10 do begin a[i]:=random(21)+10; write(a[i],); end; writeln; for i:=1 to 10 do begin a[i]:=a[i]*3; write(a[i],); end; end. 2) Program n1; var a: array[1..80] of integer; b: array[1..80] of real; i: integer; begin for i:=1 to 80 do begin a[i]:=random(51)+50; b[i]:=sqrt(a[i]); write(a[i],); end; writeln; for i:=1 to 80 do write(b[i],); end.