Паскаль. написать программу подсчета количества отрицательных чисел среди любых 10 вводимых. 1 программа с использованием while, 2 программа - repeat

Показать ответ

Ответ:

bgdadanilenko20

04.08.2020 15:24

Program riad;
var
a:array [1..10] of integer;
i,j:byte;
begin
writeln('Vvedite chisla');
for i:=1 to n do
readln(a[i]);
i:=1;
j:=0;
repeat
if a[i]<abs(a[i]) then j:=j+1;
i:=i+1;
until i=10;
writeln('kol-vo otricat = ',j);
readln;
end.

0,0(0 оценок)

Популярные вопросы: Информатика

aguscov

04.03.2023 11:25

. У исполнителя Бета две команды, которым присвоены номера: 1. прибавь b 2. умножь на 3. (b – неизвестное натуральное число). Выполняя первую из них, Бета увеличивает число...

ххх49

29.11.2020 23:24

Дан массив В (80), заполненный трехзначными случайными числами. Найти минимальный элемент массива и вывести на экран его индекс. (Написать на языке программирование Pascal)...

maria1020304050

11.08.2020 00:41

Дана последовательность из n (1≤ ≤ 10 5 ) ( 1 ≤ n ≤ 10 5 ) чисел a i (1≤ ≤ 10 12 ) ( 1 ≤ a i ≤ 10 12 ) и q запросов (1≤ ≤ 10 5 ) ( 1 ≤ q ≤ 10 5 ) . Каждый запрос предстает...

mdebnu

02.06.2023 06:27

обджект паскаль1. Массив X-целочисленный задать по вводу, n =16. В массиве X найти сумму нечетных элементов. Заменить первый положительный элемент на эту сумму. Вывод исходного...

лимон2509

27.09.2022 03:16

Вопрос Запишите число, которое будет напечатано в результате выполнения фрагмента программы. print ( 4, end= ) for i in range(4, 2, -1): print ( 2*i, end= )...

baklenev

10.04.2023 03:05

Значение выражения 343^6 - 7^10 + 47 записали системе с основанием 7. Сколько цифр 6 содержится в этой записи?...

Нуб0001

10.04.2023 03:05

Выход из лабиринта. Урок 2 Определи режим датчикаультразвука, изображённого нарисунке.4Mе е«сравнение - отдаление»«Измерение - отдаление»«Измерение - приближение»«сравнение...

кіндра

12.05.2023 17:08

с Целые числа в памяти компьютера Запишите приведенное в задании натуральное число в 8-битную ячейку памяти - 122. Запишите приведенное в задании отрицательное целое число...

Paris99

14.05.2023 11:50

1 Запишите наименьшее основание системы счисления, в которой числа могут быть записаны следующим образом:10, 32, 101, 21 2 Сколько единиц в двоичной записи числа 112? 3...

Avmb

11.04.2023 17:00

Для работы над новым проектом из специалистов отдела необходимо сформировать команду, состоящую из двух программистов и трёх веб-дизайнеров. Укажите количество различных...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку