Способы передачи информации. организация и структура локальных и компьютерных сетей.

145

349

Посмотреть ответы 1

Ответы на вопрос:

Маша270902

Информатика

4,5(88 оценок)

Uses crt; const max=100; var a: array [1..max] of real; i,n: integer; begin clrscr; write('zadajte razmernost massiva'); readln(n); writeln('ishodnij massiv: '); for i: =1 to n do begin a[i]: =random(100); write(a[i]: 7: 2); end; writeln; writeln('novij massiv: '); for i: =1 to n do begin if (i mod 2)< > 0 then a[i]: =sqrt(a[i]); write(a[i]: 7: 2); end; end.