Ответ оставил Гуру
var
i,n,d:integer;
a:array[1..nn] of integer;
begin
Write(‘n = ‘); Read(n);
Randomize;
d:=0;
for i:=1 to n do begin
a[i]:=Random(21)-10;
Write(a[i],’ ‘);
if a[i]>0 then d:=d+1
else
if a[i] 0 then Writeln(‘Положительных чисел больше’)
else
if d Оцени ответ
Ответ оставил Ser012005
Var
cnt1, cnt2,n,tmp:integer;
begin
Readln(N);
while n > 0 do
begin
n:= n -1;
Read(tmp);
if tmp > 0 then cnt1:= cnt1 + 1;
if tmp cnt2 then Writeln(‘Положительных больше’)
else if (cnt1 = cnt2) then writeln(‘Одинаковое количество’)
else Writeln(‘Отрицательных больше’);
end.
Пример:
4
-1 -1 -1 1
Отрицательных больше
Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.
Нужно построить блок-схему, заранее спасибо
Ответ оставил Гость
Const
N = 10; //твое число N
var
i,c,nc,X: integer;
begin
for i:=1 to N do
begin
READLN(X);
if(X >= 0) then inc(c)
else inc(nc);
end;
if (c > nc) then Writeln(‘четных больше’)
else
begin
if(c Оцени ответ
Если твой вопрос не раскрыт полностью, то попробуй воспользоваться поиском на сайте и найти другие ответы по предмету Информатика.
Урок их серии: «Язык программирования Паскаль«.
В предыдущем уроке было показано, как используются операторы цикла в задачах на целочисленную арифметику.
В этом уроке будет описано использование операторов цикла для обработки числовых последовательностей.
Алгоритм для обработки последовательнойтей относится к одному из двух типов: поиск, проверка условий.
Для последовательностей характерно, что в каждый момент времени нам доступен только один элемент последовательности. Поэтому все алгоритмы строятся с учетом однократного последовательного просмотра.
На этом уроке рассмотрим несколько программ на языке программирования Паскаль. В каждой из них одновременно рассматривается только очередной элемент последовательности, без учета остальных (массивы не используются). Алгоритиы для решения таких задач называются алгоритмами с линейным поиском.
Пример 1. Вводится последовательность из N целых чисел. Найти сумму всех отрицательных чисел.
n — количество чисел;
i — переменная цикла;
x — очередное число;
sum — сумма отрицательных чисел.
Пример 2. Вводится последовательность ненулевых чисел, 0 – конец последовательности. Определить, сколько раз последовательность меняет знак.
old — предыдущее число;
new- обрабатываемое число;
k — количество смен знака ;
i — порядковый номер числа в последовательности.
В этом уроке было показано, как использовать операторы цикла для обработки числовых последовательностей.
В следующем уроке будет описано использование подпрограмм.
Загрузка...
