Начало
Проснуться
Умыться
Собраться
Выйти из дома
Прийти в школу
Прийти на первый урок
Прийти на второй урок
Прийти на третий урок
Прийти на четвертый урок
Выйти из школы
Прийти домой
Пообедать
Начать выполнять домашнее задание
Сесть за стол
Достать дневник, учебники, тетради
Прочитать задание в дневнике
Открыть учебник и тетрадь
Выполнить задание
Сложить школьные вещи в портфель
Пойти почистить зубы
Лечь спать
Конец
Program enot;
VAR p: array [1..7,1..9] of integer;
i,j,s:integer;
begin
s:=0;
for i:= 1 to 7 do
for j:= 1 to 9
do p[i,j]:= random (61)-25;
for i:= 1 to 7 do
begin
for j:= 1 to 9 do
begin
if p[i,j]<0 then s:=s+p[i,j];
write(p[i,j]:5);
end;
writeln();
end;
writeln(s);
<span>end.</span>
Программа на Кумире прилагается.
Тут не совсем понятно в чем конкретно это все делать, но я так понимаю, что в пеинте. Если так, то:
1) Выбрать нужный цвет в палитре и нажать на него правой кнопкой мыши
2) Выбрать нужный цвет в палитре и нажать на него левой кнопкой мыши
3) Выбрать в панели "Прямоугольник" и нарисовать фигуру
4) Выбрать в панели "Прямоугольник" и, зажав клавишу "Shift" нарисовать фигуру
5) Выбрать в панели "Овал" и нарисовать фигуру
6) Выбрать в панели "Овал" и, зажав клавишу "Shift" нарисовать фигуру
Если не трудно, пометь ответ как лучший. Удачи
11719,03. В 1 Кб 1024 байта. Следовательно, делим 12000288 на 1024 = 11719,03 Кб.<span>
</span>