Дан целочисленный массив размера n. увеличить все нечетные числа содержащиеся в массиве на исходное значение последнего нечётного числа. если нечётные числа в массиве отсутствуют, то оставить массив без изменений

Const   n=10; var   a: array[1..n]of integer;   i,k: integer; begin writeln('исходный массив: '); for i: =1 to n do   begin   a[i]: =random(10);   write(a[i]: 4);   if a[i] mod 2> 0 then k: =a[i];   end; writeln;   if k> 0 then   for i: =1 to n do     if a[i] mod 2> 0 then a[i]: =k+a[i]; writeln('конечный массив: '); for i: =1 to n do  write(a[i]: 4); end.  

см файл

за январь нет оплаты так как нет предыдущих показаний

excel таблицы не прикрепляются

var

a: array [1..20] of integer;

i,max: integer;

begin

max: =0;

for i: =1 to 20 do

begin

if i mod 2=0 then a[i]: =random(50)+50

else  a[i]: =random(50)+150;

if a[i]> max then max: =a[i];

write(a[i]: 4);

end;

writeln;

writeln('max=',max);

end.