Var M: array[1..15] of integer;
i, count: integer;
begin
for i := 1 to 15 do begin
M[i] := random(15);
write(M[i]:3);
if(M[i] mod 2 = 0) then inc(count);
end;
writeln(#10, 'Кол-во четных элементов: ', count);
<span>end.</span>
Вертный ответ 1)совокупность простых элементов, прямоугольников, прямых линий, закрасок
Земляника , малина , яблоко, вишня , смородина
бит, байты, килобайт, мегабайт, гигабайт. Ответ :г
портативный пк, в корпусе которого объединены типичные компоненты ПК, включая дисплей , клавиатуру устройство указания (обычно сенсорная панель, или тачпад), а также батарею.