1). Дан миссив из n целых чисел. Напишите программу определяющую сколько в массиве четных чисел, 2). Дан массив из n целых чисел. Напишите
5-9 класс
|
программу определяющую каких элементов в точке больше положительных или отрицательных
Program BiFi;
Const n=50;
Var A:array[1..n] of integer;
i,c,l:integer;
Begin
for i:=1 to n do readln(A[i]);
c:=0;
for i:=1 to n do if A[i] mod 2 = 0 then c:=c+1;
writeln(c);
readln;
end.
Program BiFi;
Const n=50;
Var A:array[1..n] of integer;
i,k,l:integer;
Begin
k:=0;
l:=0;
for i:=1 to n do begin readln(a[i]);
if A[i]<0 then k:=k+1
else if A[i]>0 then l:=l+1;
end;
if k>l then writeln('больше положительных')
else if l>k then writeln('больше отрицательных')
else writeln('одинаково');
readln;
end.
Другие вопросы из категории
Определить сколько времени понадобиться чтобы заполнить половину пробирки? Сколько жителей было в пробирке через 7 секунд?
Нужно использовать систему счислений
Читайте также
Напишите программу,определяющую,сколько в массиве чисел.
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы
Формат входных данных
В певой строке входного файла содержится одно целое число n(1<=n<=200).Во второй строке находятся n целых чисел a1,a2...aN (-1000<=ai<=1000)-елементы массива.
Формат выходных данных
В единственной строке выходного файла выведите одно слово "YES",если в этом массиве есть три числа сумма которых равна нулю.Иначе выведите "NO".
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.