Var
a: array [1..4] of integer;
i, sf, ss : integer;
begin
for i:=1 to 4 do
begin
a[i]:= random(50)+1;
writeln(a[i]);
if a[i] mod 2 = 0 then sf:=sf+a[i] else
ss:= ss+a[i];
end;
writeln('Сумма четных: ', sf, ' ; сумма нечетных: ', ss);
<span>end.</span>
40*1024=40960байт,,,,,,,,,,,,,,,,,,,,,,,,,,,,
<span> </span>\
1.Едет из А в В по грунтовой дороге
затратит 4 часа
2.Едет сначала из А в С,потом из С в В.
Из А в С дорога по шоссе,40 км со скоростью 40 км/ч.
<u>затраченное время 1 час</u>
далее из С едет в В по грунтовой дороге,скорость 20 км/ч,расстояние от С до В равно 50 км
<u>затраченное время 2.5 часа</u>
<em>Итого:</em>1 час+2.5 часа=3.5 часа,это время будет минимальным для него.
<em><u>Ответ:3.5 часа минимальное время на путь из А в В.</u></em>
Какой охранник нужен чтобы охранять систему компьютера? Антивирус.