Составьте программку, которая заполняет массив a[1..10] случайными целыми числами в спектре

Составьте программку, которая наполняет массив a[1..10] случайными целыми числами в спектре от 1 до 10 и вычисляет сумму частей массива с четными значениями

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

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

i, m: integer;
begin
for i := 1 to 10 do

begin
a[i] := random (100) - 50;
writeln (a[, i, ] = , a[i]);
if (a[i] mod 2 = 0) then m := m + a[i];
end;
writeln (Сумма элементов массива с четными значениями одинакова , m);
end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт