Const n=10; var a:array[1..n] of integer; i,k:integer; begin Randomize; writeln('Массив A:'); for i:=1 to n do begin a[i]:=random(31); write(a[i]:4); end; writeln; k:=0; for i:=1 to n do if a[i]<16 then k:=k+1; writeln('Количество элементов массива < 16 = ',k); end.
Пример: Массив A: 17 28 18 19 12 9 24 6 18 12 Количество элементов массива < 16 = 4
Const m=200; var a: array[1..m] of integer; i,n: integer; begin write('количество элементов массива: '); readln(n); randomize; write('массив: '); for i:=1 to n do begin a[i]:=random(40); write(a[i],' '); end; writeln; write('элементы, меньшие 16: '); for i:=1 to n do if a[i]<16 then write(a[i],' '); end.
ПЕРЕЛИВАНИЕ Решение задач! Математика! Решите мне следующие задачи с решением! Переливание! 1. Можно ли, пользуясь 9- и 12-литровыми сосудами, отмерить воду в количестве: а) 6 л; б) 4 л? 2. Как, пользуясь сосудами емкостями 7 л и 12 л, получить 1 л воды? 3. В первый сосуд вмещается 9 л воды, во второй 5 л, а в третий – 3 л. Первый сосуд наполнен водой, а остальные – пусты. Как с их отлить: а) 1 л воды; б) 7 л воды? 4. Бидон емкостью 10 л наполнен молоком. Требуется перелить из этого бидона 5 л в 7-литровый бидон, используя при этом еще один, 3-литровый. Как это сделать? 5. В бочке 18 л бензина. Имеется два ведра по 7 л, в которые нужно на-лить по 6 л бензина, и черпак, объем которого равен 4 л. Как можно осуществить разлив? 7. Как с двух сосудов емкостями 7 л и 4 л разделить поровну молоко, находящееся в 12-литровом бидоне? 8. Можно ли с двух сосудов емкостями 9 л и 11 л набрать из крана 10 л воды? 9. В один стакан налито 5 ложек чая, а в другой – 5 ложек молока. Ложку молока перелили из второго стакана в первый, затем тщательно все перемешали и ложку чая с молоком перелили обратно во второй стакан. Чего оказалось больше: чая во втором стакане или молока – в первом? 10. Имеется три сосуда без делений объемами 4 л, 5 л, 6 л, кран с водой, раковина и 4 л сиропа в самом маленьком сосуде. Можно ли с переливаний получить 8 л смеси воды с сиропом, так чтобы в каждом сосуде воды и сиропа было поровну? 11. Как разделить поровну между двумя семьями 12 литров хлебного кваса, находящегося в двенадцатилитровом сосуде, воспользовавшись для этого двумя пустыми сосудами: 8-литровым и 3-литровым? 12. У Карлсона есть ведро варенья, оно вмещает 7 литров. У него есть 2 пустых ведерка - 4-литровое и 3-литровое Карлсону отлить 1 литр варенья к чаю в меньшее (3-литровое) ведерко, оставив 6 литров в большом (7-литровом) ведре. 13. Летом Винни Пух сделал запас меда на зиму и решил разделить его пополам, чтобы съесть половину до Нового Года, а другую половину - после Нового года. Весь мед находится в ведре, которое вмещает 6 литров, у него есть 2 пустые банки - 5-литровая и 1-литровая. Может ли он разделить мед так, как задумал? 14. На другой год Винни Пух запасся 10 литрами меда. Под руками у него два ведра - 7-литровое и 4-литровое. Как ему разделить мед пополам? 15. Для разведения картофельного пюре быстрого приготовления "Зеленый великан" требуется 1 л воды. Как, имея два сосуда емкостью 5 и 9 литров, налить 1 литр воды из водопроводного крана? 16. Для марш-броска по пустыне путешественнику необходимо иметь 4 литра воды. Больше он взять не может. На базе, где имеется источник воды, выдают только 5-литровые фляги, а также имеются 3-литровые банки. Как с одной фляги и одной банки набрать 4 литра во флягу?
Наверное так: 1. Взять флешку. 2. Вставить флешку в компьютер, подождать до того момента, пока компьютер не обнаружит твою флешку. 3. После того, как компьютер обнаружил флешку, зайди в папку Мой компьютер, найди свою флешку. 4. Наведи курсов мы ши на найденное тобой устройство, нажми правую кнопку мыши, выбери "Проверить на вирусы, нажимай и приверяй. 5. После проверки закрой окно и начинай работу с флешкой. 6. После завершения работы, нажми на значок "Безопасное извлечение устройств и дисков" и извлеки свою флешку. Как-то так)
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(31);
write(a[i]:4);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i]<16 then k:=k+1;
writeln('Количество элементов массива < 16 = ',k);
end.
Пример:
Массив A:
17 28 18 19 12 9 24 6 18 12
Количество элементов массива < 16 = 4