Const
n = 30;
var
a: array[1..n] of integer;
i, s: integer;
begin
Randomize;
Writeln('Исходный массив');
s := 0;
for i := 1 to n do
begin
a[i] := Random(101) - 50;
Write(a[i], ' ');
if ((i mod 2) = 1) and ((a[i] mod 2) = 0) then s := s + a[i]
end;
Writeln(#13#10, 'Сумма найденных элементов ', s)
end.
Тестовое решение:
Исходный массив
49 -39 -17 6 24 38 20 50 6 -36 -4 -7 -31 41 -8 20 32 49 -48 -47 50 48 -41 -44 -26 -11 9 38 -24 -34
Сумма найденных элементов 22
Я хз бро ты на другой сайт зайди и всё будет ок )) мне просто баллы нужны , и если не трудно сделай лучшим ответом пж
256 цветов - это 1байт на пиксел
один экран = 640*480*1байт = 300 Кб
значит только один эран и вместится
Программист - это человек который пишет программу например текстовый редактор или калькулятор.
Пользователь - это человек который пользуется этой программой а именно - печатает текст в текстовом редакторе или же считает математические примеры в калькуляторе который написал программист.
1 картинка 20 упражнение . Я включил компьютер и набрал на клавиатуре сочинение про свою семью . Затем я переписал с фотоаппарата последние фотографии, добавил их к тексту и вывел сочинение на монитор. После этого я прибавил громкость звука колонок и стал играть в любимую игру , быстро двигая мышкой . Получив рекордный результат , я ввёл с клавиатуры своё имя и распечатал на принтере список рекордсменов .