Напишите программу пожалуйста):
Ввести 15 целых элементов массива, элемента с нечетными номерами увеличить на 10, элементы с четными номерами уменьшить на 10. Вывести на экран
Ввести 15 целых элементов массива, элемента с нечетными номерами увеличить на 10, элементы с четными номерами уменьшить на 10. Вывести на экран
More Questions From This User See All
Answers & Comments
VAR A:array[1..15] of integer;
i:integer;
BEGIN
CLRSCR;
{Заполняем массив}
For i:=1 to 15 do
begin
Write('Введите ',i,' элемент массива ');
Read(A[i]);
CLRSCR;
end;
{Выводим массив на экран}
For i:=1 to 15 do
Write(A[i],' ');
{К нечетным номерам массива +10 к четным -10}
For i:=1 to 15 do
if i mod 2 <>0 then A[i]:=A[i]+10
else A[i]:=A[i]-10;
Writeln;
{Выводим на экран измененный массив}
For i:=1 to 15 do
Write(A[i],' ');
Readln;
READLN;
END.