2. Напишите программу вычисления в массиве из n частей, данных датчиком случайных

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var a:=ArrRandom(Readinteger('n='),-13,25); a.Println;
Writeln('k=',a.Where(x-gt;x.IsEven).Count)
end.

Тестовое решение:
n= 15
17 20 22 -11 1 10 22 3 1 3 16 9 23 -8 15
k=6

Славян Сбруйкин · Answer 2 · 2019-09-15 04:43:47+3:00

Славян Сбруйкин 2019-09-15 04:43:47

Const n = 10;
Var
i,k : Byte;
m : array[1..n] of Integer;
Begin
Randomize;
k:=0;
For i:=1 to n do
Begin
   m[i]:=-13+Random(39);
   Write(m[i],' ');
   If not Odd(m[i]) then Inc(k);
end;
Writeln;
Writeln('Количество чётных элементов: ',k);
end.

Гацев Иван 2019-09-15 04:50:16

Спасибо для тебя , выручил

Арсений Артимения 2019-09-15 04:56:30

Ошибку выводит в этой строчке : m[i]:=-13+Random(39);

Ajbjatulina Elena 2019-09-15 05:05:24

упс, это я забыл обрисовать сам массив

Балтачеев Кирилл 2019-09-15 05:14:00

после Var добавить: m : array[1..n] of Integer;

Ирина 2019-09-15 05:18:02

исправил сам ответ

О проекте

2. Напишите программу вычисления в массиве из n частей, данных датчиком случайных

Добро пожаловать!