Безотлагательно ПОЖАЛУЙСТА!!! Составьте программку которая заполняет массив а 1..8 случайными целыми

СРОЧНО ПОЖАЛУЙСТА!!! Составьте программу которая заполняет массив а 1..8 случайными целыми числами в спектре от 1 до 10 и выводит на экран количество частей с четными значениями и сумму частей массива с нечетными значениями

Задать свой вопрос
1 ответ

program massive;

const n=8;

var a:array[1..n]of integer;

sum,k,i:integer;

begin

sum:=0;

k:=0;

//наполнение массива

for i:=1 to n do

begin

a[i]:=random(10);

end;

if a[i] mod 2=0 then inc(k)

esle sum:=sum+a[i];

writeln('кол-во четных частей =', k);

writeln('Сумма нечетных частей =',sum);

readln;

end.

Вовка Перешин
Указывайте в задании язык, на котором необходимо написать.
Юлкуненкова Карина
Полагаюсь это верно, спасибо большое
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт