Исполнить фрагмент программы. дописать программу полностью. что будет на экране после выполнения программы ? сформулировать , решение которой содержало бы данный фрагмент : for i: =1 to 12 do if a[i]> 0 then a[i]: =abs( a[i] - 20);
vorontsovaksus
3
30.07.2019 07:30
0
Другие вопросы по теме Информатика
panoli2007
12.04.2020 22:24
16вопрос
12.04.2020 22:24
kall5
22.06.2019 19:20
saidazimkkk
10.03.2019 03:00
Кристина7836
30.06.2019 02:01
Kally2007
30.06.2019 02:01
karisha119
30.06.2019 02:01
PutinVodka
30.06.2019 02:01
Mj3589
30.06.2019 02:01
алекс922
30.06.2019 02:01
Популярные вопросы
- Холодный воздух поднимается или опускается?...
3 - 1.найдите пятый член прогрессии (an) если а3=20, q=0,2 2.найдите номер члена...
2 - На все что можете, ответьте, хотя бы на 1, любой 1. можно ли сложив сумму нескольких...
1 - Написать местоимения 3-го лица. оно весь мир обогревает оно усталости не знает,...
2 - Какие бывают пилы и какие пилят пилят вдоль и поперёк волокон...
3 - Решить уравнения 5 (3x-5)-3 (6x-3)=5x-4...
3 - Замените отношение дробных чисел отношением натуральных чисел 4/5 : 9/10...
3 - Как проверить написание буквы е в слове вынырнет...
2 - Столовой за неделю израсходовали 84 кг крупы на сколько дней хватит 60 кг крупы...
2 - Токарь,выточив на станке 145 деталей, перевыполнил план на 16%.сколько деталей...
2
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]>0 then a[i]:=abs(a[i] - 20);
for i:=1 to 12 do
write(a[i], ' ');
end.
Вот что будет выведено на экран: фото