Массив В задан случайным образом а) подсчитать сумму элементов массива, меньших своего номера; б) подсчитать сумму элементов массива, стоящих на четных местах; в) подсчитать сумму отрицательных элементов массива; г) подсчитать ...

Question

Массив В задан случайным образом а) подсчитать сумму элементов массива, меньших своего номера; б) подсчитать сумму элементов массива, стоящих на четных местах; в) подсчитать сумму отрицательных элементов массива; г) подсчитать ...

Массив В задан случайным образом а) подсчитать сумму элементов массива, меньших своего номера; б) подсчитать сумму элементов массива, стоящих на четных местах; в) подсчитать сумму отрицательных элементов массива; г) подсчитать сумму элементов массива, больших произвольного числа К. помогите, пожалуйста

Гость

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

Accepted Answer

Пример на Паскале. Пусть массив размером 100 элементов Program Maasiv; var A:array[1..100] of real; i,s:integer; k :real; begin random; For i:=1 to 100 do A[i]:=randomize(100)-50; {заполняем массив случайными числами от -50 до 50} s:=0; for i:=1 to 100 do if A[i]k then S:=S+A[i]; writeln(s);{задание г} end.