Для начала заводим переменную счетчик для подсчета количества четных и нечетных .
var count,count2:integer;
Далее в теле цикла с массивом, после его вывода добавляем условие if then else
if a[i].IsEven then count+=1 else count2+=1
Т.е. сам цикл будет выглядить так
for i := 1 to n do
begin
a[i] := Random(1, 50);
Write(a[i], ' ');
if a[i].IsEven then Count += 1 else Count2 += 1;
end;
Вместо a[i].IsEven можно использовать not Odd(a[i]) или уже a[i] mod 2 = 0
Ну а далее уже вывод количеств четных и нечетных
Можно сделать все еще проще.
begin
var a := ArrRandom(20, 1, 50);
Println('Четных ', a.Where(z -> z mod 2 = 0).Count, 'Нечетных ', a.Where(z -> Odd(z)).Count);
end.
Выполнить сложение 1010*2+1101*2 = 10111*2
Выполнить вычитание 101011*2-1101*2 = 11110*2
Выполнить умножение 1111*2×1101*2 = 11000011*2
Выполнить деление 010111*2:001*2 = 1111.11111111*2
Объяснение:
Выполнить сложение 1010*2+1101*2
.
+ 1 0 1 0
1 1 0 1
1 0 1 1 1
Окончательный ответ: 1010*2 + 1101*2 = 10111*2
Выполнить вычитание 101011*2-1101*2
. . .
- 1 0 1 0 1 1
1 1 0 1
0 1 1 1 1 0
Окончательный ответ: 101011*2 - 1101*2 = 11110*2
Выполнить умножение 1111*2×1101*2
x 1 1 1 1
1 1 0 1
+ 1 1 1 1
0 0 0 0
1 1 1 1
1 1 1 1
1 1 0 0 0 0 1 1
Окончательный ответ: 1111*2 × 1101*2 = 11000011*2
Выполнить деление 010111*2:001*2
- 0 1 0 1 1 1 0 0 1
0 0 1 1 1 1 1 . 1 1 1 1 1 1 1 1
- 1 1
0 0 1
- 1 0 1
0 0 1
- 1 0 0 1
0 0 1
- 1 0 0 0 0
0 0 1
- 1 1 1 1 0
0 0 1
- 1 1 1 0 1 0
0 0 1
- 1 1 1 0 0 1 0
0 0 1
- 1 1 1 0 0 0 1 0
0 0 1
- 1 1 1 0 0 0 0 1 0
0 0 1
- 1 1 1 0 0 0 0 0 1 0
0 0 1
- 1 1 1 0 0 0 0 0 0 1 0
0 0 1
1 1 1 0 0 0 0 0 0 0 1 0
Окончательный ответ: 010111*2 ÷ 001*2 = 1111.11111111*2
program aaa;
var x,a,b:real;
begin
writeln('Vvedite a');
readln(a);
writeln('Vvedite b');
readln(b);
x:=(a+b)/a;
writeln('x=',x);
readln
end.