Каждый нечётный элемент массива уменьшить в два раза а каждый чётный увеличить на 5 полученный массив вывести в столбец
Program z1; Var a: array [1..100] of real; i,n:integer;Begin write(Введите размера массива - ); readln(n); randomize; for i:=1 to n do begin a[i]:=random(9)-0; write (a[i], ); end; writeln; writeln; for i:=1 to n do begin if (i mod 2 = 0) then a[i]:=a[i]+5 else a[i]:=a[i]/2; writeln(a[i]); end;End.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
