Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Lraaq
21.07.2022 18:56 •
Информатика
Пример длинного линейного алгоритма по информатике , буду
Показать ответ
Ответ:
toklike
21.06.2020 01:24
Достаточно длинный?)
var a: array [0..30] of integer;
i, o: integer;
s: string;
begin
for i := 1 to 30 do
begin
a[i] := random(6) - 3;
end;
writeln('Массив:');
for i := 0 to 30 do
begin
writeln('[', i, '] => ', a[i]);
if (a[i] > 0) then
begin
o := o + a[i];
s := s + inttostr(i) + ' ';
end;
end;
writeln('Номера положительных чисел: ', s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
veronichkasape
02.05.2021 22:17
Чем характеризуются каналы передачи информации? •отправителем информации •получателем информации •пропускной возможностями операционной системы...
W1LDOR
04.08.2022 23:42
Паскваль вычислите n чисел фибоначи: f1=1; f2=1; ; fn=fn-1+fn-2, например: f3=f2+f1=1+1=2,f4=2+1=3 b т.д....
ilyajdbda
01.10.2022 21:29
Составить слово из букв и придумать предложение умоляю побыстрее заранее...
Plild
01.10.2022 21:29
Тапсырма. Тест 1.Қай облыстың белсенділері «Асыра сілтеу болмасын аша тұяк калмасын» ұранын көтерді.А)СемейдеВ)ОралдаС)КызылордаД)ТорғайдаЕ)Карагандыда2. 1932 жылы...
NikaHikikomori
01.10.2022 21:29
Почему погиб Александр II? Разве не должен был российский народ быть благодарным за все то, он сделал для его освобождения?...
Dmitry228q
09.02.2022 22:07
Высказывания. Истинность и ложность Рассмотри диаграммы множеств. Выбери истинные высказывания.Верных ответов: 2Множества A и B не пересекаются.Объединением множеств A и B является...
askarovaalisa
24.01.2020 21:30
Қазақстан көп адамның хоббиі-спорт деген тақырыпқа эссе жаз. Эссеге төмендегі мақал мен қанатты сөздерді қатыстыр.Ұзақ сапар алғашқы қадамнан басталады.Спорт-денсаулық...
натахасуслик
04.03.2022 09:36
30 кестеде 2014 жылгы малыметтер бойынша ар облыстыгы халык саны корсетылген ...
xZeoNx
17.08.2022 18:01
Complete the dialogues with these verbs in the second conditional. be ● do(x2) ● get ● go ● have ● spend 1. Ben: What(a) you to improve the world if you (b) a world...
3lJouKpolJouk
08.11.2020 20:56
Прочитайте отрывок из повести В.Железнякова Чучело . Поразмышляйте над вопросами после текста, а на вопрос №9 дайте письменный ответ вопрос почему важно относиться...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a: array [0..30] of integer;
i, o: integer;
s: string;
begin
for i := 1 to 30 do
begin
a[i] := random(6) - 3;
end;
writeln('Массив:');
for i := 0 to 30 do
begin
writeln('[', i, '] => ', a[i]);
if (a[i] > 0) then
begin
o := o + a[i];
s := s + inttostr(i) + ' ';
end;
end;
writeln('Номера положительных чисел: ', s);
end.