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

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

Задать свой вопрос
1 ответ
Составил в pascal


program mas;
var i,j:integer; a:array [1..10] of integer;
begin
randomize;
for i=1 to 10 do  
begin
a[i]:=random(10);
end;
for i=2 to 10 do
begin
j:=j+a[i];
i:=i+1;
end;
writeln(j);
readln;
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт