М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

Составьте программу вычисления суммы элементов массива от второго положительного и до конца я составил такой код, но вот только сумму он определяет не так. есть какие-то идеи? program qq; const n=10; var a: array[1..n] of integer; i,p,j,sum: integer; begin for i: =1 to n do begin a[i]: =random(20)-10; write(a[i],' '); end; j: =0; for i: =1 to n do begin if a[i]> 0 then j: =j+1; if j = 2 then p: =i; end; for i: =p+1 to n do sum: =sum+a[i]; writeln(); writeln('сумма элементов от второго положительного: ',sum); end.

👇
Ответ:
ms71431
ms71431
21.10.2022
У вас что-то слишком сложная структура для такой задачи.
Предлагаю вариант покороче, скрин и исходник в приложении.
Складывает все числа (положительные и отрицательные) начиная со второго положительного включительно, то есть второй элемент так же будет задействован.

Составьте программу вычисления суммы элементов массива от второго положительного и до конца я состав
4,4(54 оценок)
Открыть все ответы
Ответ:
karinasoskova
karinasoskova
21.10.2022

Б) 0:05. Это рейс с пересадкой в Москве.

Несмотря на множество рейсов, вариантов перелёта всего 4: прямой до Лондона, с пересадкой в Москве, с пересадкой в Праге и с двумя пересадками в Москве и Праге.

Прямой рейс уже улетел, пассажир будет в Лондоне завтра в 22:25

Через Москву пересадка займёт 20 минут и он будет в Лондоне в 0:05.

Через Прагу не получится, так как Лондонский рейс вылетает за 40 минут до прилёта Киевского и надо сутки ждать в Праге.

А две пересадки тоже не катят, надо полдня ждать в Праге.

4,7(36 оценок)
Ответ:
Цикл while

Пишется так:

while условие do

begin

Тело цикла

end;

Выполняет тело цикла (команды между begin и end;) пока соблюдено условие в заголовке цикла.

Пример:

while x<100 do

begin

x:= x+1;

end;

Прибавляет к переменной x единицу пока x меньше ста. Если x больше ста, то цикл заканчивается.

Числа Фибоначчи

Последовательность начинается с 0 1

Каждое следующее число равно сумме двух предыдущих

0 1 1 (0+1=1)

0 1 1 2 (1+1=2)

0 1 1 2 3 (1+2=3)

0 1 1 2 3 5 (2+3=5)

и т.д.

Одномерные массивы

Массив можно представить как ряд из ящиков

каждый ящик имеет свой номер (индекс)

в ящике лежит значение (цифры или символы)

Объявляются как переменные в начале программы:

program raf105

var название:array[количество элементов] of тип;

количество элементов пишется как диапазон от минимального значения индекса (Индекс это число в квадратных скобках) до максимального между ними ставятся две точки

Пример:

program raf105

var X:array[1..10] of integer;

Это массив под названием X с 10-ю элементами типа integer

Обращение к массиву

Название[индекс]

Пример:

x[8]:= 101;

Мы присвоили восьмому элементу массива под названием x значение 101

4,6(24 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ