1обеспечивает доступ в интернет, 2 эмблема операционной системы linux , 3 графический или 4 программа - id832236320210513 от эльза182 13.05.2021 12:09

Question

Информатика: 1обеспечивает доступ в интернет, 2 эмблема операционной системы linux , 3 графический или 4 программа необходимая для работ разных устройств, подключенных к кп, 5 грызун для кп, 6 единица информации, равная 8 битам

эльза182 · Accepted Answer

Const n=20;
var a:array [1..n] of integer;
k,i:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(90)+10;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln('В массиве ',k,' четных чисел');
writeln('Элементы с нечетными номерами:');
for i:=1 to n do
if i mod 2 <> 0 then write(a[i],' ');
end.

Пример:
Исходный массив:
55 40 42 16 52 12 46 58 75 72 39 51 54 64 83 20 77 37 52 23
В массиве 12 четных чисел
Элементы с нечетными номерами:
55 42 52 46 75 39 54 83 77 52

MOGZ ответил