Для передачи информации между компьютерами включеных в одну сеть
600 МБайт = 600 * 1024 = 614400 Кбайт
Всего фотографий на диске: 614400 / 500 = 1228
1228 * 6 = 7368 секунд = 122,8 минут = 2 часа 2 минуты 48 секунд
Program n1;
Uses CRT;
Const n=40;
Var A:array[1..n] of integer;
i: integer; S:Real;
begin
writeln('Massiv: ');
For i:=1 to n do
begin
a[i]:=random(20);
write(' ',A[i]:2);
end;
writeln;
For i:=1 to n do begin S:=s+A[i]/n; end;
Writeln('Srednee arif.: = ',S);
readln;
<span>end.</span>
var a:array [1..10] of integer;
b,i:integer;
z:real;
begin
randomize;
for i:=1 to 10 do
begin
z:=random;
b:=random(10);
if z>0.5 then a[i]:=b
else a[i]:=-b;
end;
for i:=1 to 10 do
write(' ',a[i]);
end.
если что то не понятно,спрашивай)