Массив а вводится с клавиатуры найти среднее арифметическое его элементов с нечетными номерами.размер произвольный .решение паскаль .решите

255

455

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

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

Магомед05111

Информатика

4,4(88 оценок)

Program asd; uses crt; const n=5; var a: array[1..n] of integer; i,ind: integer; s,sr: real; begin clrscr; writeln('заполните массив числами: '); for i: =1 to n do begin write('a[',i,']: '); readln(a[i]); end; for i: =1 to n do begin ind: =i; if not ind mod 2 = 0 then begin s: =s+a[i]; sr: =s/n; end; end; writeln('ср. ар. элементов с нечетными индексами: ',sr); end.