Program z1
const n=30;
var a: array [1..n] of integer;s, i: integer;
begin
randomize;
for i:=1 to n doa[i]:= random (151)+50;for i:= 1 to n dos:=s+a[i];
writeln ('количество=',s);
readln;
end.
//PascalABC.Net 3.2
begin
var a:=ReadArrInteger ('Вводите массив: ', readinteger('Кол-во элементов: '));
for var i:=0 to length(a)-1 do if a[i].isodd then a[i]:=sqr(i+1);
a.Println;
a.Println;
end.
Любой хост сети с IP-адресом 192.131.122.0
Размер файла равен <em>V*t</em>
<em>Значит:</em>
1920*x=128*24
x=1.6