Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
diasdias2000
26.06.2020 18:30 •
Информатика
Дана последовательность из n вещественных чисел, начинающаяся с отрица- тельного числа. определить, какое количество отрицательных чисел записано в начале последовательности. условный оператор не использовать.
Показать ответ
Ответ:
sakhnovavaleri1
24.07.2020 19:54
const
n = 5;
var
a,i,k : integer;
begin
readln (a);
k := 1;
While (a < 0) and (k < n) do
begin
k := k +1;
readln (a);
end;
for i := k to n do
readln (a);
a := k;
While a <n do
begin
k := k -1;
a := n;
end;
writeln (k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Kirich0ult
26.09.2022 06:04
запишите фрагмент программного кода для перемещения персонажа на новую позицию и удаление с исходного кода....
MatveiKnyaz2005
22.08.2022 13:30
Параметры амортизации» в меню «НМА»- это… a. раздел предназначенный для формирования документов по изменению текущих параметров b. справочник предназначенный для хранения списка...
Valentinka079
23.04.2020 17:24
Что будет нарисовано после выполнения чертёжником алгоритма? использовать чертёжник алг нач поднять перо сместиться с точку ( 2,4 ) опустить перо сместиться на вектор (-1,0)...
Danayu
05.08.2020 17:04
Что будет выведено на экран в результате работы следующего цикла (k и i – целые переменные)? а) k:= 1;for i:=1 to 5 do beginwrite(k*k, );k:= k + 2;end.ответ:б) k:= 8;for i:=5...
MissEvaStar
21.10.2021 19:21
А) Записать в 24-х разрядную сетку число 15,410, переведя его в двоичную СС, в формате с фиксированной точкой (запятая установлена после 12-ого разряда справа) и плавающей...
Мандариин1335
08.07.2020 11:16
Сколько существует различных последовательностей из символов а и б длиной ровно девять символов?...
NekkeR8821
26.07.2022 10:01
6-тапсырма. «Дербес пікір жазу» тәсілін қолданып, мәтін мазмұны бойынша пікірлеріңді жазыңдар (уақыты – 7-8 минут). 1. Өзіндік пікір (идея) — бір сөйлем.2. Дәлел – екі сөйлем.3....
kovalenko171019
28.02.2020 11:30
Прочитайте темы соченений.Задание по вариантам:придумайте и запишите первое предложение к каждой теме. В чём их различие? 1) игра очень полезная игра 2) библиотека в школьной...
lisakiss1
20.05.2021 04:37
Найди процент от числа. 33% от 427=52% от 28.4 =300% от 0.35 =50% от 3.5=27% от 9.6 =400% от 0.5 =22% от 389=...
goodsmalgirl
08.08.2020 04:33
Геометрия, срок сдачи через 10 минут на казахском) 1 задание ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n = 5;
var
a,i,k : integer;
begin
readln (a);
k := 1;
While (a < 0) and (k < n) do
begin
k := k +1;
readln (a);
end;
for i := k to n do
readln (a);
a := k;
While a <n do
begin
k := k -1;
a := n;
end;
writeln (k);
end.