найти сумму отрицательных чисел массива и количество четных
5-9 класс
|
var a: array [1..10] of integer;
s:real;
n,i: integer;
begin
n:=0;
s:=0;
for i:=1 to 10 do begin
readln(a[i]);
if a[i]<0 then s:=s+a[i];
if a[i] mod 2 =0 then n:=n+1;
end;
writeln(s,', ',n);
end.
Другие вопросы из категории
ПРОШУ, ПРОСТО ВЫРАЖЕНИЯ НАПИШИТЕ, Я ТАМ САМА ОФОРМЛЮ
Источник звуковой информации: То, что несет информацию через...
Источник зрительной информации: То , что несет информацию через...
__________________________________________________________
Источник Вкусовой информации: То , что несет информацию через...
__________________________________________________________
Источник тактильной информации: То , что несет информацию через...
__________________________________________________________
Источник обонятельной информации: То , что несет информацию через...
__________________________________________________________
Помогите. Прошу очень!
Дан целочисленный массив из 40 элементов. Элементы массива могут принимать произвольные целые значения.Напишите программу,которая находит и выводит сумму наибольшей возрастающей последовательности подряд идущих элементов.
Читайте также
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
его индекс.
5) Найти максимальные элементы среди положительных элементов массива 6) Найти максимальные элементы среди отрицательных элементов массива
7) Определить количество максимальных элементов массива
P.S Ребят, все в паскале...заранее спасибо=*
местах; в) подсчитать сумму отрицательных элементов массива; г) подсчитать сумму элементов массива, больших произвольного числа К. помогите, пожалуйста
Определить что больше по модулю:сумма отрицательных чисел массива или отрицательных.