ХЕЛП МИ ПЛИЗЛюди, пожалуйста помогите очень срочно необходимо

ХЕЛП МИ ПЛИЗ
Люди, пожалуйста помогите
очень безотлагательно нужно

Задать свой вопрос
Оксана
Язык программирования какой?
Эмилия Олесевич
Паскаль? Судя по [1..10]
София Шайхразеева
да
Алёна Пичилина
паскаль
1 ответ
Var a: array[1..10] of Integer;
i,s,d: Integer;
begin
for i:=1 to 10 do
begin
a[i]:=Random(10-1+1)+1;
writeln('Число: ',a[i]);
end;
for s:=1 to 10 do
begin
if a[s] mod 2=0 then inc(a[s]);
end;
for d:=1 to 10 do
begin
writeln(a[d]);
end;
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт