дан массив из n элементов,определить каких элементов больше(отрицательных,положительных или =0)
5-9 класс
|
program aliona;
const n =10;
var a:array[1..n] of integer;
i:integer;
begin
writeln('vvedite massiv');
for i:=1 to n do
readln(a[i]);
for i :=1 to n do
begin
if ((a[i]>0) >(a[i]<0)) then
writeln ('polojitelnih cisel bolise')
else
writeln('otritatelinih cisel bolise');
if ((a[i]=0)>(a[i]>0))and ((a[i]=0)>(a[i]<0))
then
writeln('bolise nulei');
end;
readln;
end.
Другие вопросы из категории
оканчивающихся на 8. Программа получает на вход натуральные числа, кол-во введеных чисел неизвестно, последовательность чисел оканчивается числом 0 (ноль-признак окончания ввода, не входит в последовательность) кол-во чисел не превышает 100. введеные числа не превышают 300. Программа должна вывести одно число: сумму всех чисел кратных 4 и оканчивающихся на 8.
Читайте также
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
2.Даны 2 массива одинакового размера. Сформировать 3-й массив, каждый элемент которого равен минимальному из элементов с одинаковыми номерами.
3.Заполнить массив из 11 элементов числами 1, 2,3,..,11.
Заранее спасибо.