Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Дан одномерный массив . К четным элементам массива прибавить B , а из нечетных вычесть C . Значения В и С вводятся с клавиатуры.

Ответ оставил Гость

Может я не понял задания. Но вот...

var i,b,c,x: integer;

begin
 write(Введите до какого числа будет идти масив: );
readln(x);
write(Введите B и C ( через пробел ): );
readln(b,c);
for i:=0 to x do
if (i mod 2 = 0)then writeln(i,+,b,=,i+b)
else writeln(i,-,c,=,i-c);
end.