Всего <em>29</em> точек (окна не входят). При рисовании смотритена картинку!!!
1 (10, 0)
2 (10, 2)
3 (6, 7)
4 (-2, 7)
5 (-8, 1)
6 (-12, 0)
7 (-11, - 1)
8 (-12, -1)
9 (-12, -4)
10 (-8, -4)
11 (-8, -3)
12 (-7, -2)
13 (-6, -2)
14 (-5, -3)
15 (-5, -4)
16 (-6, -5)
17 (-7, -5)
18 (-8, -4)
19 (4, -4)
20 (4, -3)
21 (5, -2)
22 (6, -2)
23 (7, -3)
24 (7, -4)
25 (6, -5)
26 (5, -5)
27 (11, -4)
28 (11, -2)
29 (10, 0)
Окна нарисуйте на свой вкус.
1. название программы
2. подключение библиотеки
3 и 4. объявление переменных и их типов
5. объявление массива
6. начало программы
7. вывод на экран сообщения о необходимом действии
8. считывание введенных с клавиатуры данных
9. конец ввода массива
10. обнуление переменной
11. начало цикла
12. формула подсчета переменной
13. вывод получившегося числа на экран
14. задержка экрана (чтобы увидеть результат)
15. конец программы
А в какую СС перевести то надо?
var
i, s:integer;
<span>a: array [</span>1..7<span>] of </span>integer;
begin
for i:=1 to 7 do
begin
writeln('Введите эл. массива
A[',
i, ']');
readln(A[i]);
end;
for i:=1 to 7 do
if a[i]>0 then s:=s+a[i];
writeln('Сумма всех положительных
элементов массива: ', s);
end<span>.</span>
512 байт если перевести будет 0.5 mb