Выполните по информатике,! заполните и вывести на экран массив размером 7 случайными числами промежутками от 2 до 15 увеличьте четные элементы на 3
olgauschap1
1
29.04.2019 07:48
2
Другие вопросы по теме Информатика
nikitabordkin
25.01.2021 20:35
rgh223344
28.07.2019 14:40
14062006123
28.07.2019 14:50
egorowasnezhana
28.07.2019 14:50
МаШкА428
16.05.2021 10:48
Викушка111111
27.10.2020 21:12
Андрей99951
27.10.2020 21:14
sharperdimas
27.10.2020 21:14
ksysharoma123
23.04.2020 00:02
Популярные вопросы
- Нужен проект, сочинение, доп. материал что угодно на тему взаимосвязь семьи...
2 - Назовите важнейшие формы государственного вмешательства в россии. в чем заключались...
2 - Виписати цитати федька і толіка з федько халамидник...
3 - Слово көмек проскланять по лицам мен сен сіз ол...
2 - Выкармливая птенцов, розовый скворец за один раз приносит в гнездо 3 насекомых.сколько...
1 - Биографическая справка о н.а некрасове (5класс)...
3 - Cos²x ln y=y204.у’, y=1 при x=п/3 нужна за ранее...
1 - Як зробити проект використання сонячної енергії ?...
3 - Уфермера - 10 коров и 5 лошодей .один корова съедает за месяц 300 кг сена,...
3 - Яка папка комп ютера є кориневою папкою?...
3
Const n=7;
Var i:Integer ;
A:array [1..n]of Integer ;
Begin
For i:=1 to N do begin
A[i]:=random(13)+2;
Write(' A[', i, ']=', a[i]) ;
End;writeln;
For i:=1 to N do begin
If a[i] mod 2=0 then A[i]:=a[i]+3;
Write (' A[', i, ']=', a[i]) ;
End;
End.