Исполнить кусок программы. Дописать программку полностью. Что будет на экране после

Исполнить кусок программки. Дописать программку стопроцентно. Что будет на экране после исполненья программки ? Сконструировать задачку, решение которой содержало бы данный кусок : for i:=1 to 12 do if a[i]gt;0 then a[i]:=абс( a[i] - 20);

Задать свой вопрос
Вероника Листратова
какой кусок?
Vitalik Shaljavin
все написано: for i:=1 to 12 do if a[i]>0 then a[i]:=абс( a[i] - 20);
1 ответ
Вот дописанная программка:

var

i:integer;

a: array [1..12] of integer;

begin

for i:=1 to 12 do

a[i]:=i;

for i:=1 to 12 do

if a[i]gt;0 then a[i]:=абс(a[i] - 20);

for i:=1 to 12 do

write(a[i], ' ');

end.


Вот что будет выведено на экран: фото

Sanachaeva Jevelina
Огромное спасибо Для вас
Василиса
Пожалуйста, не забудь про лучший ответ!
Анастасия Шаршун
Простите, а что за превосходнейший ответ?)
Славик
Через несколько дней, для тебя система (в извещениях) предложит избрать лучший ответ за твой вопрос. Для тебя возвратится часть баллов и мне прибавится.
Иван Расутин
А, спасибо. Буду сейчас знать. Просто я вот несколько часов назад только зарегестрировалась здесь
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт