var
a: array [1..30] of Word;
i, c, sum: Word;
begin
Randomize;
for i := 1 to 30 do
a[i] := Random (76);
for i := 1 to 30 do
Write (a[i], ' ');
WriteLn;
for i := 1 to 30 do
if (a[i] >= 10) and (a[i] <= 35) then begin
Inc (c);
sum := sum + a[i];
Write (a[i], ' ')
end;
WriteLn;
WriteLn ('Кол-во чисел из диапазона [10; 35]: ', c);
Write ('Сумма чисел из диапазона [10; 35]: ', sum);
end.
Сочинение на тему будущее.
Каким будет будущее трудно предугадать. Писатели-фантасты по-разному описывают будущее. Но в большинстве случаев они сходны в одном: в обществе людей появятся роботы, у которых будет искусственный интеллект, и люди начнут переселяться на другие планеты. Возможно, так оно и будет. Ведь когда-то люди думали, что земля плоская, но когда стали бороздить просторы океана и открывать материки, то поняли, что дела обстоит совсем по-другому.
Со временем люди также начнут открывать новые планеты, как когда-то открывали новые материки. Человек не может сидеть на месте, он устремлен в будущее, перед ним еще множество тайн, которые ему предстоит раскрыть.
Кто-то боится будущего, так как неизвестность всегда пугает. Что ждет человека через несколько сотен лет никто не знает. Очень многое зависит от самого человека, именно он создает историю и строит будущее. Наверное, самое главное заключается в том, чтобы люди позаботились о будущем для нового поколения, чтобы им не пришлось страдать от болезней, нехватки еды. Мы должны заботиться о будущем, о том, в каком состоянии достанется планета земля нашим потомкам.
1 форматирования диска с
2 а потом установка ос