IMHO проблеммы не только с Паскалем, но и русским!
Полная версия: помогите решить линейный масив
В данном линейном целочисленном массиве каждый элемент с чётным индексом увеличить на значение индекса, с нечётным уменьшить на значение индекса.
IMHO проблеммы не только с Паскалем, но и русским!
IMHO проблеммы не только с Паскалем, но и русским!
Код
uses crt;
const n=5;
var x:array[1..n] of integer;
i:integer;
Begin
clrscr;
for i:=1 to n do
readln(x[i]);
for i:=1 to n do
if i mod 2 = 0 then
x[i]:=x[i]+i
else
x[i]:=x[i]-i;
writeln;
for i:=1 to n do
writeln(x[i]);
readln;
end.
const n=5;
var x:array[1..n] of integer;
i:integer;
Begin
clrscr;
for i:=1 to n do
readln(x[i]);
for i:=1 to n do
if i mod 2 = 0 then
x[i]:=x[i]+i
else
x[i]:=x[i]-i;
writeln;
for i:=1 to n do
writeln(x[i]);
readln;
end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.