#1
var
mas : array [1..10] of integer;
sum : integer := 0;
begin
for var i:=1 to 10 do begin
mas[i] := random(-5,5);
if (mas[i] <> 0) then
sum += mas[i];
end;
writeln(sum);
end.
#2
var
mas : array [1..10] of integer;
sum : integer := 1;
begin
for var i:=1 to 10 do begin
mas[i] := random(-2,2);
if (mas[i] <> 0) then
sum *= mas[i];
end;
writeln(sum);
end.
#3
var
mas : array [1..20] of integer;
sum : integer := 0;
sum1 : integer := 0;
begin
for var i:=1 to 20 do begin
mas[i] := random(100,1000);
if (i < 11) then sum += mas[i];
if (i >= 11) then sum1 += mas[i];
end;
writeln(sum + ' ' + sum1);
end.
2 - X людей стояло на остановке. подъехал автобус, пятерых забрызгало грязью, остальные спрятались в колючих кустах. сколько ПОЦАРАПАННЫХ людей поедет в автобусе, если трое из них остались лежать в кустах?
номер 2
1 - бабушки поехали кататься на мотоциклах. их было 40 бабушек. одна, самая шустрая, ехала впереди на мотоцикле. за ней ехали 3 мотоцикла с колясками, в которых сидело по 3 бабушки в каждом. за ними следом ехали оставшиеся мотоциклы, в каждом из которых сидело по 2 бабушки
Объяснение:
Объяснение: