Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Ростислав111л
18.12.2021 02:31 •
Информатика
Выполнение в паскале. составьте программу для нахождения индекса первого положительного элемента массива из 10 элементов, заданных случайным образом.
Показать ответ
Ответ:
betmurzaev2015
22.09.2020 01:52
Var
a: array[1..10] of integer;
i, first: integer;
begin
randomize;
for i:=1 to 10 do
a[i] := random(50)-25;
for i:=1 to 10 do
if a[i] > 0 then
begin
first := i;
break;
end;
writeln(first);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
aidanuraim
02.07.2021 04:35
Фраза на некотором иностранном языке «каля маля» в переводе на язык означает «красное солнышко», «фаля » - «большая красная груша», «цаля » - «большое яблоко». как на этом...
tekkenknigin
16.08.2020 15:57
Сочинить рассказ про ослика, книгу и компютор...
dhgti
27.11.2021 07:11
Заполнить таблицу состояний четырехразрядного двоичного вычитающего счетчика/ *построить временную диаграмму...
qwaszxpolkmn129
19.09.2022 03:22
Сколько гбайт в 2 битах в 35 степени а) 2 в 22 степени б) 2 в 25 степени в) 2 в 12 степени г) 2 во второй степени...
ivannaprokuror
19.09.2022 03:22
Если y – вещественная переменная, а n – целая, то правилен или нет следующий оператор присваивания: y: =sqr(sqrt( (ответ обосновать)...
vfeukb59Pavek
19.05.2023 07:43
Б) какое из свойств определяет функцию книги: 1 название книги 2 число страниц 3 цена книги 4 качество иллюстраций 5 наличие текста....
ArtSchoolMan
19.05.2023 07:43
Какой критерий поиска необходимо задать, чтобы найти все текстовые документы?...
vipzedd
01.10.2020 17:04
Складіть проект у середовищі Скретч2, у якому, поки виконавець не доторкнеться до межі, грає мелодія, якщо він отримає повідомлення Зіграй, або рухається на 150 кроків уперед,...
домашка68
21.02.2020 04:45
Сколько существует натуральных чисел х, для которых выполняетсянеравенство 60(8) x A01 (16)?В ответе укажите только количество чисел, сами числа писать не нужно....
Alexandro1888
12.10.2020 04:57
Написать программы с циклами:1. вводится натуральное число. найти сумму шести цифр, кратных шести, входящих в его состав...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a: array[1..10] of integer;
i, first: integer;
begin
randomize;
for i:=1 to 10 do
a[i] := random(50)-25;
for i:=1 to 10 do
if a[i] > 0 then
begin
first := i;
break;
end;
writeln(first);
end.