Pascal Дан массив вещественных чисел. Найти сумму и количество отрицательных с нечетными номерами элементов, расположенных в первой половине массива (включая середину) Ограничения: -число элементов в матрице не более 10-ти По...

Question

Pascal Дан массив вещественных чисел. Найти сумму и количество отрицательных с нечетными номерами элементов, расположенных в первой половине массива (включая середину) Ограничения: -число элементов в матрице не более 10-ти По...

Pascal Дан массив вещественных чисел. Найти сумму и количество отрицательных с нечетными номерами элементов, расположенных в первой половине массива (включая середину) Ограничения: -число элементов в матрице не более 10-ти Порядок ввода исходных данных: -число элементов в массиве -элементы массива Порядок вывода результатов: -значение суммы с точностью до одного знака после запятой, ограничить ширину поля вывода результата 7-ю позициями, количество таких элементов или сообщение "Элементы не найдены"

Гость

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

Accepted Answer

var a:array[1..10]of integer; n,i,k:integer; s:real; begin readln(n); for i:=1 to n do readln(a[i]); i:=1; while i<=n do begin if a[i]<0 then begin inc(k); s:=s+a[i]; end; i:=i+2; end; if k<>0 then writeln(s:0:7,' ',k) else writeln('Элементы не найдены'); end.