Домашнее задание Выполни исследовательский проект по предложенной теме. указанной ниже. Тема проекта Вопросы и направление исследования Векторная графика Программное обеспечение для рисования векторного изображения. Свойства векторных изображений, • Особенности векторных изображений, • эффективность использования векторных изображений,
231
395
Ответы на вопрос:
Var mas, c: array[1..20]of real; i, c_n: integer; s: real; begin randomize; for i : = 1 to 20 do begin mas[i] : = random(100) - 50; if (mas[i] > 0) and (i mod 2 = 0) then begin c_n : = c_n + 1; c[c_n] : = mas[i]; write(c[c_n], ' '); s : = s + c[c_n] * c[c_n]; end; end; writeln(); writeln('s = ', s); end.
Популярно: Информатика
-
Умник00Семь26.07.2022 06:40
-
danik13127.07.2020 18:51
-
angelina45320.07.2020 04:31
-
Help09364603.08.2021 09:37
-
balashova129614.01.2021 12:21
-
мαрия14.08.2020 19:41
-
лала12345127.10.2021 04:35
-
Shaxrior29.03.2021 21:19
-
dsanavskiy7710.04.2022 21:59
-
любимчик2726.10.2020 17:42