10 значений для массива входят с клавиатуры.Программа сравнивает элемент с последующим и предыдущим через один.Если элемент равен предыдущему через один и больше последующего через один, а также элемент кратен 3, то данный элемент увеличивается в 2 раза.В итоге программа выводит изменённый массив.Паскаль
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Запишите математическое выражение на программирование Python
Автор: Olenkalebedeva4477
Напишите на алгоритмическом языке пример: 5-(x-3) y= (x-3)+4
Автор: art-03857
Написать программу в вычисляющую степень числа 2 (от 0 до 20)
Автор: rb-zakaz
Напишите сочинение на тему Microsoft Word
Автор: sawa-msk
Перечислите 3 свободно распространяемых продукта, их назначение и аналоги
Автор: eliteclassic308
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.