Водномерном массиве, заполненном случайными числами посчитать сумму и количество четных чисел.массив размером 20

program name;

uses crt;

var s,k: ,i: integer;

          aa: array [1..20] of integer;

begin

clrscr;

s: =0;

k: =0;

for i: =1 to 20 do begin

aa[i]: =random(100);

if aa[i] mod 2 = 0 then begin

s: =s+aa[i];

k: =k+1;

end;

end;

writeln('в данном массиве ',k,'четных чисел, сумма которых равна ',s);

end.

1) 1011100110

2)5628

3) 531

4) 159

5) 15E

Это можно просто пощитать по таблице которую я скинул, просто подставить и все.

6) Это задание я обьяснил ниже

Объяснение:

Вторая фотография это таблица перевода, тебе надо было просто все даные которые были, допустим на 1 в таблице 11111, сверху написана цифра 2, это значит что это двоичная система исчесления, тебе надо было перевести ёё в 10 систему, ты бы открыла бы таблицу которую я скинул, просто подставила числа и все, потом с 10, в 8 ричную систему, а потом в 16, так же с остальными, допустим 4 в таблице, у тебя есть 16 система есит "АА", тебе ёё надо опять в 10 ричную перевести, а потом в 2 ричную систему а потом 8 ричную, или наобот, не имеет значение. А вот в 3 тебе ничего не надо делать ведь там уже есть 10 ричная система, тоесть тебе ёё не надо переводить уже, ты просто бедешь, переводишь ёё в 2 ричную, 8 и затем 10 ричную систему, и все

114.31

Объяснение:

 114.31writeln (s:6:2)

s - переменная 6 - количество знаков, для вывода переменной

2 - количество знаков после запятой (точки) они включены в это количество)

3 знака до точки, 1 знак сама точка, 2 знака после точки.

Последний знак округляется (от 5 в большую сторону).

Если количество знаков, выделяемых под переменную больше, чем её размер, то перед переменной добавляются необходимые пробелы.

Если мы выводим не вещественную (дробную) переменную, то через двоеточие указывается только количество знаков, выделяемых для вывода переменной (второе двоеточие не используется).