10 значений для массива входят с клавиатуры.Программа сравнивает элемент с последующим и предыдущим через один.Если элемент равен предыдущему через один и больше последующего через один, а также элемент кратен 3, то данный элемент увеличивается в 2 раза.В итоге программа выводит изменённый массив.Паскаль
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Як вимкнути потенційно вразливі компоненти браузера?
Автор: yyyaga
Информатика, 8 класс до обеда Кто будет спамить, забаню
Автор: zharovaleks
Написать сообщение на тему как я использую компьютер для родным.
Автор: rubanvladimir374
Информатика 6 класс 4 четверть
Автор: prostopo4ta29
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.