Помогите выполнить это задание по информатике: Составить программу на языке Паскаль

Помогите выполнить это задание по информатике:
Составить программу на языке Паскаль для решения последующей задачки: задать одномерный массив случайным образом и отыскать сумму частей с нечётными номерами.
Прошу учитывать правильность написания самой программки (Чтоб можно было воткнуть в паскаль и не исправлять чужие оплошности.(Я ещё в собственных не разбираюсь))

Задать свой вопрос
1 ответ
Const N = 10;
var i, sum: integer;
M: array[1..10] of integer;
begin
sum := 0;
for i := 1 to N do begin
M[ i ] := random(11);
write( M[i], ' ');
if ( M[ i ] mod 2 lt;gt; 0 ) then sum := sum + M[ i ];
end;
writeln();
writeln('Сумма всех нечетных частей: ', sum);
end.
Юрик Манеров
Спасибо! Это идеальный ответ.
, оставишь ответ?
Имя:*
E-Mail:


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

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт