===== PascalABC.NET =====
begin
var a := ArrRandom(20, 0, 100);
a.Println.Where(p -> p mod 5 = 0).Max.Println
end.
Ответ:
1600
Объяснение:
100Мбит - это 100*2^10 бит
1 МБ - это 2^13 бит
128с - это 2^7с
K(объём)=V(скорость)*t(время)
Решение: K=(100*2^10*2^7)/2^13=100*2^4=1600MB
1)
var
mas: array [1..5] of integer;
i:integer;
begin
for i:=1 to 5 do
read(mas[i]);
for i:=1 to 5 do begin
mas[i]:=mas[i]-20;
write(mas[i],' ');
end;
end.
2)
var
mas: array [1..8] of real;
i:integer;
begin
for i:=1 to 8 do
read(mas[i]);
for i:=1 to 8 do begin
if i mod 2 = 0 then
write(mas[i]-1,' ')
else
write(mas[i]+1,' ')
end;
end.
1. Ответ: a:=26
2. Ответ: a:=30