Program gt;
var a:array[0..100]of integer;
s,i,n:integer;
begin
s:=0;
n:=12;
for i:=0 to n do
read(a[i]);
for i:=0 to n do
begin
if(a[n-i]-a[i]=a[i])then s:=s+2*a[i];
end;
writeln(S);
<span>end.
ответ 80
2)
такая же программа но там умножаем на 3
и числа другие
ответ 24</span>
В приложениях находятся два варианта решений. Постановка задачи позволяет решить ее без использования массивов. Такой код находится во втором приложении.
Два текстовых файла можешь копировать в PascalABC.NET оба рабочие. Первый с динамическими массивами под PascalABC.NET второй -статические массивы для FreePascal.
Странный алгоритм :)
Надпись слева я не разобрал, оставил со знаком вопроса, подправите потом этот текст. И, если в сообщениях x1 и x2 нужно было печатать в виде числа, то поставьте их перед текстом и отделите запятой, вот так: (x1, ' съест').
Сама программа:
var
x1, x2, y: real;
begin
Println('Введите значения x1, x2, y через пробел и нажмите Enter');
Readln(x1, x2, y);
x1 := y - x1;
x2 := y - x2;
if x2 < 0 then
x2 := -x2;
if x1 < 0 then
x1 := -x1;
if x1 = x2 then
Println('В улетит?')
else if x1 > x2 then
Println('x2 съест')
else Println('x1 съест');
end.
Begin
writeln('Поздравляю с началом учебного года!')
end.