Предмет: Информатика,
автор: ypointmanoueh4a
Требуется написать программу уменьшения в два раза значение всех элементов массива, имеющих нечетные индексы
Ответы
Автор ответа:
0
Program v1;
Var i,n: integer;
mas: array[1..100] of real;
mas1: array[1..100] of real; Begin
Write ('Сколько элементов вы хотите:');
Readln(n);
For i := 1 to n do
Begin
mas[i] := Random(30);
Write (mas[i],' ');
End;
Writeln;
For i := 1 to n do
if (i mod 2 = 1) then
Begin mas1[i] := mas[i]/2;
Write (mas1[i],' ');
End;
End.
Var i,n: integer;
mas: array[1..100] of real;
mas1: array[1..100] of real; Begin
Write ('Сколько элементов вы хотите:');
Readln(n);
For i := 1 to n do
Begin
mas[i] := Random(30);
Write (mas[i],' ');
End;
Writeln;
For i := 1 to n do
if (i mod 2 = 1) then
Begin mas1[i] := mas[i]/2;
Write (mas1[i],' ');
End;
End.
Похожие вопросы