Uses crt;
var a=array[1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(50);
if (a[i]mod5=0) there
a[i]:=a[i]*2;
else
a[i]:=a[i]/2;
for i:=1 to 10 do
writeln(a[i]);
end.
Скорость=512000 бит/с
Время передачи=16 с
Размер файла=512000*16=8 192 000 бит=1 024 000 байт= 1000 Кбайт
var
arr: array[1..20] of real;
s:real;
i:integer;
Begin
s:= 0;
write('Массив: ');
for i:=1 to 20 do begin
arr[i]:= random(10);
write(arr[i], ' ');
end;
for i:=1 to 20 do
if Abs(arr[i]) > 1 then
S:= S + arr[i];
writeln;
writeln('Сумма: ', s);
END.
Процессор
<span>сетевая карта
</span>оперативная память
<span>материнская плата
</span>видеокарта
<span>блок питания
</span><span>накопитель (дисковод)
</span><span>ПЗУ
ТО ЧТО Я НАШЁЛ)
</span>
Ввод чисел продолжается, пока не введено число 100.
Var
A:integer;
Begin
WriteLn('Введите числа');
Read(A);
While A<>100 do
Begin
Read(A);
End;
WriteLn('Ввод окончен');
End.