Дан целочисленный массив из 10 целых чисел. Преобразуйте его, прибавив к нечетным числам значение последнего элемента. Последний элемент массива оставьте без изменений.(В Паскале)
var m : array [1..10] of Integer; i : Integer;begin// Здесь заносишь значения в массив. for i := 1 to 9 do if ( m[i] mod 2 ) <> 0 then m[i] := m[i] + m[10];
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
m : array [1..10] of Integer;
i : Integer;
begin
// Здесь заносишь значения в массив.
for i := 1 to 9 do
if ( m[i] mod 2 ) <> 0 then m[i] := m[i] + m[10];
end.