сервис вопросов и ответовПомогите, прошу вас!
5-9 класс|
|
Очень нужно !!
Прикрепленные изображения
050674
31 мая 2016 г., 2:24:30 (7 лет назад)
Goshag
31 мая 2016 г., 3:00:14 (7 лет назад)
program gt;
label 1;
var a:array[1..1000]of integer;
n,i,s:integer;
begin
readln(n);
s:=0;
for i:=1 to n do
read(a[i]);
i:=1;
while i<n do
begin
if(abs(a[i]-a[i+1])<3*abs(a[i]-a[i+2]))and(i+2<n)then begin
s:=s+abs(a[i]-a[i+1]);
i:=i+1;
goto 1;
end;
if(abs(a[i]-a[i+1])>=3*abs(a[i]-a[i+2]))and(i+2<=n)then begin
s:=s+3*abs(a[i]-a[i+2]);
i:=i+2;
end;
1:
end;
if(i=n-1)then s:=s+abs(a[i]-a[i+1]);
writeln(s);
end.
Ответить
Другие вопросы из категории
Читайте также
Помогите, прошу вас!!! :( Эта задача от Paskal ABC... Написать программу, которая при вводе координат XY выдаёт номер
четверти координатной плоскости.
В каких случаях лучше использовать прозрачный, а в каких непрозрачный режим при выделении?
(Речь идет о граф. редакторе Paint)
Помогите прошу Вас!!)
Помогите пожалуйста очень прошу вас добрые вы люди .-. Даны три числа a,b,c если они положительные то найти их сумму,а если отрицательные то поменять
знаки и затем найти сумму Помогите алгоритм составить в Паскале .
помогите прошу
1. запишите в виде предложения на русском языке смысл математической формулы:
S=ab
2. сообщение «14-15» в разных ситуациях может быть воспринято по разному. поясните, что оно может обозначать в разных ситуациях:
а) на вокзале
б) на уроке
в) на стадионе
г) в магазине
прошу помогите срочно!!!!!!!!!!!!!
Вы находитесь на странице вопроса "Помогите, прошу вас!", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.