Дан массив с количеством элементов n. сжать выбросив каждый четный элемент.

127

148

Посмотреть ответы 2

Ответы на вопрос:

аня2942

Информатика

4,5(57 оценок)

For k: =1 to n div 2 do s: =s+a[k*2]; либо по тупому s : = 0; for n : = 1 to size do if not odd(n) then s : = s + a[n];

адай6

Информатика

4,5(33 оценок)

Эта автоматически тебе всё сделает.var i, n, max : integer; a : array [1..30] of integer; begin for i : = 1 to 30 do begin write('a[', i, ']='); a[i]: =i+1; if max< a[i] then max: =a[i]; writeln(a[i]); end; writeln('максимальный элемент равен: ',max); end. если нужно будет ввести последовательность с клавиатуры, то вот: var i, n, max : integer; a : array [1..30] of integer; begin for i : = 1 to 30 do begin write('a[', i, ']='); readln (a[i]); if max< a[i] then max: =a[i]; end; writeln('максимальный элемент равен: ',max); end.