Предмет:
ИнформатикаАвтор:
ty59program pr;
var mas:array[1..40] of integer;
i, sum:integer;
begin
randomize;
for i:=1 to 40 do mas[i]:=random(20);
for i:=1 to 40 do if mas[i]<=10 then sum:=sum+mas[i];
writeln ('сумма равна ', sum);
readln;
end.
Программу проверил все работает
Автор:
boo bearnqciДобавить свой ответ
Ученик за 3 общие тетради и 2 карандаша уплатил а рублей. Другой ученик за такие же 2 общие тетради и 2 карандаша уплатил b рублей. сколько стоила общая тетрадь и сколько стоил карандашь? (зачение а и b выберите сами)
Предмет:
АлгебраАвтор:
gordonshermanОтветов:
Смотреть
а) пропен ---> пропан --(+Cl2)--> X --(+NaOH)--> X --(+HBr)--> X
|
L - (+H2O [O])- - > X
b) бутин - 2 --(+H2)--> X --(+HBr)-> X --(+H2O)- > X --- > алкен --(+O2)--> X