<span>1 замкнутая область.2 ограниченная.3 если в равенстве</span>
По моему такая задача уже была. Ну ладно
1. Половина детей любит пирожное 52/2=26
2. Мы знаем, что 20 детей любит либо пирожное, либо пирожное и мороженое. Прибавим их к тем кто любит только пирожное 20+26=46
3. Оталось из всего количества детей вычесть полученный результат 52-46=6
Ответ: 6 - детей любит мороженое
var
a: array [1..25] of integer;
begin
for i: integer := 1 to 25 do
begin
a[i] := random(255);
writeln(i, ' => ', a[i]);
end;
writeln('-----------------------------------');
for i: integer := 1 to 25 do
begin
if (i mod 2 = 0) then
a[i] := a[i] * 2
else
a[i] := 0;
writeln(i, ' => ', a[i]);
end;
<span>end.</span>
Var
a: array [1..10] of real;
s: real;
i: integer;
begin
s:= 0;
for i:= 1 to 10 do
begin
writeln('Введите число');
readln(a[i]); //Вводим i-ый элемент массива с клавиатуры
if a[i] > 0 then s:= s + a[i]; {Если введенный элемент >0, то прибавляем к текущему значению s введенный элемент}
end;
writeln('Сумма положительных элементов массива: ', s)
end.
Начало
Проснуться
Умыться
Собраться
Выйти из дома
Прийти в школу
Прийти на первый урок
Прийти на второй урок
Прийти на третий урок
Прийти на четвертый урок
Выйти из школы
Прийти домой
Пообедать
Начать выполнять домашнее задание
Сесть за стол
Достать дневник, учебники, тетради
Прочитать задание в дневнике
Открыть учебник и тетрадь
Выполнить задание
Сложить школьные вещи в портфель
Пойти почистить зубы
Лечь спать
Конец
