Задание:
Составить программу удваивающую четные по номеру элементы массива а нечетные по номеру уменьшитьвдвое … элементы произвольные. Тема одномерные массивы
Решение:
Вот решение. Надеюсь на отметку Лучший ответ.var m: array [1… 1000] of real; i,j: longint; begin read (j); for i: =1 to j do begin read (m[i]); if i mod 2=0 then m[i]: =m[i]*2 else m[i]: =m[i]/2; end; for i: =1 to j do write (m[i],'); end.
Знаете другой ответ?