Pascal Дан массив вещественных чисел. Найти сумму и количество отрицательных с…

Question

39

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

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

pro__street · Accepted Answer

46

pro__street

16 апреля 2023

var a: array[1… 10]of integer; n,i,k: integer; s: real; beginreadln (n); for i: =1 to n do readln (a[i]); i: =1; while i <= n do beginif 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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: