Решите задачу по информатике в программе паскаль, пожалуйста. В массиве А(5) посчитать кол-во положительных и кол-во отрицательных чисел.
10-11 класс
|
var A:array[1..5] of real;
i, n_neg, n_pos: integer;
begin
n_neg := 0;
n_pos := 0;
for i := 1 to 5 do
readln(A[i]);
for i := 1 to 5 do
if (A[i] < 0) then
inc(n_neg)
else if (A[i] > 0) then
inc(n_pos);
writeln('Positives: ', n_pos, ', negatives: ', n_neg)
end.
var a:array[1..5]of longint;
i,k,k1:longint;
begin
for i:=1 to 5 do
read(a[i]);
for i:=1 to 5 do
begin
if a[i]<0 then k1:=k1+1;
if a[i]>0 then k:=k+1;
end;
writeln('otricatelnyh=',k1,'polojitelnyh',k);
end.
Другие вопросы из категории
почему выражение "все есть число" считается числом даже 0?
ширину канала передачи и надежность при низкой цене?
1)DSL
2)ISDN
3)спутниковый канал
4)беспроводное подключение
Читайте также
среди них нулей! Пожалуйста!
1. Напишите программу формирования и вывода массива размером 6x3, каждые три последовательных элемента в строке которого составлены по следующему правилу:
1-й — равен случайному числу;
2-й — равен целой части квадратного корня из предыдущего элемента;
3-й-равен сумме двух предыдущих элементов.
в заповедник выпустили z зверей. за год количество особей увличивается на определенный процент. Сколько зврей будет через определенное время?
1. условие задачи
2. математическая модель
3. список переменных с их расшифровкой
4. блок- схема алгоритма
5. программный код