10 значений для массива входят с клавиатуры.Программа сравнивает элемент с последующим и предыдущим через один.Если элемент равен предыдущему через один и больше последующего через один,а также элемент кратен 3,то данный элемент увеличивается в 2 раза.В итоге программа выводит изменённый массив.Паскаль
Ya12467990076
1
25.12.2020 11:21
9
Другие вопросы по теме Информатика
taylakova090820
27.01.2020 17:28
Pmogi111
27.07.2019 22:10
8cvinka8
27.07.2019 22:10
тчочолаовов1
24.10.2020 10:34
igordergaysov
24.10.2020 10:37
linayaryshkina
25.01.2021 23:17
softinator
25.01.2021 23:09
506010
17.06.2019 21:50
VadimButs
11.06.2020 19:06
Популярные вопросы
- Подскажите выберете из толкового словаря любые 3 слова сущ. прил....
2 - ответить теорией на вопрос как определить входить ли одна строковая...
1 - Сочинение на тему бородино от лица солдата!...
2 - Составь словосочетания,используя слова-предметы и слова признаки о...
1 - Как называется место производят казнь в тюрьмах...
3 - Look, read and say.where are the ghost? милли не можем составить предложение...
1 - От автобусной остановки в одном направлении отошли автобус и пешеход.скорость...
2 - Частые простудные заболевания обонятельный и вкусовой эпителии. дай...
3 - Почему мы заботимся о качестве воды? какова роль океанов,морей и рек...
1 - Проект памятники всемирного природного и культурного наследия африки...
2
var a:array[1..10] of integer;
var i, t:integer;
begin
for i:=1 to 10 do
readln(a[i]);
for i:=3 to 8 do
if (a[i]=a[i-2]) and (a[i]>a[i+2]) and (a[i] mod 3=0) then
begin
a[i]:= a[i]*2;
end;
for i :=1 to 10 do
write(a[i],' ');
end.