Var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.
2^8072+2^4036+2^5-2^0
10.....00 + 1 ....0 + 100000 - 1
10.....0010......0011111
7 единиц
Реляционная база данных-это совокупность взаимосвязанных таблиц каждая из которых содержит информацию об объектах определённого типа.
Var
sum: integer := 0;
num: integer;
begin
write('Введите число n: ');
read(num);
for var k := 5 to num do sum += k;
write('Сумма: ',sum);
end.
Var
mas:array[1..10]of integer;
i:integer;
Begin
write('Введите 10чисел: ');
for i:=1 to 10 do readln(mas[i]);
write('Четными являются: ');
for i:=1 to 10 do<span> if (mas[i] mod 2 = 0) then write(mas[i],' ');
</span>End.