5 лет назад
Массивы. Решение задач. Информатика.
Задача 1. Массив А вводится с клавиатуры. Найти сумму его элементов. Размер произвольный. const n=3; var a:array[1..n] of integer; i,s:integer; begin s:=0; for i:=1 to n do begin write('Введите a[',i,']='); readln(a[i]); s:=s+a[i]; end; writeln('S=',s); end. Задача 2. Массив А вводится с клавиатуры. Найти среднее арифметическое его элементов с нечетными номерами. Размер произвольный. const n=5; var a:array[1..n] of integer; i,ind:integer; s,sr:real; begin for i:=1 to n do begin write('Введите...