1)составте программуб которая заполняет массив а[1..10] случайными целыми числами в диапозоне от 1 до 10,затем преобразовывает его,увеличивая все элементы с четными значениями на 1. если элементы с чётными значениями отсутствуют, оставить массив без изменений. 2) составте программуб которая заполняет массив а[1..10] случайными целыми числами в диапозоне от 1 до 10,затем преобразовывает его,увеличивая все элементы с нечётными значениями в три раза,а элементы с чётными значениями заменяя на 0.
aliosha1337
2
25.03.2019 10:50
0
Другие вопросы по теме Информатика
kripto123
02.12.2020 12:33
НастяMAY
28.04.2020 11:50
Diмon
28.04.2020 11:50
валерка1973
28.04.2020 11:50
Ayei
28.04.2020 11:50
mary041
28.04.2020 11:50
weri8
27.05.2019 13:40
nastyakravchen6
27.05.2019 13:40
sass20
27.05.2019 13:40
Популярные вопросы
- Выпишите лишное слово. france, russia, the uk, the usa....
1 - Решите с уравнения : а) продолжительность дня с 7 октября до 19...
3 - Свойства твёрдых, жидких и газообразных тел...
3 - Слово увидеть образовано приставочным а уменьшить-приставочным-.объесните...
2 - Почему во время всех революций принимала беглых французских монархов...
3 - Если вместо звёздочки поставить знак , неравенство 440 2 400 станет...
2 - Чем измеряется относительная и абсолютная высота?...
2 - Составить и записать 5 предл. с однородными членами и 5 сложносочиненных...
2 - Сколько звуков а в преложении : скоро побелеют леса и поля...
2 - /1 укажите когда , согласно исследованиям учёных появился челочек...
3
1) var a:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
begin
if a[i] mod 2 = 0 then
a[i]:=a[i]+1;
writeln(a[i]);
end;
end.
2)
var a:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
if (a[i]+1) mod 2 = 0 then
begin
a[i]:=a[i]*3;
writeln(a[i]);
end
else
begin
if a[i] mod 2 = 0 then
writeln (0);
end;
end.