После покупки пассажир имеет право получить чек на купленный билет на поезд РЖД (Российские Железные Дороги). Чек высылают на телефон или на электронную почту. Это зависит от того, какой вариант доставки покупатель выбрал при покупке билета.Подробнее ...
Данный калькулятор позволит найти область определения функции онлайн.
Область определения функции y=f(x) – это множество всех значений аргумента x, на котором задана функция. Другими словами, это все x, для которых могут существовать значения y. На графике областью определения функции является промежуток, на котором есть график функции.Подробнее ...
В приложение можно добавить только существующую почту. То есть ту, которая была создана заранее. Создать новую почту через приложение «Электронная почта» нельзя.
В магазинах приложений почтовый клиент называется «Samsung Email». Установленное на смартфон приложение называется «Электронная почта» и выглядит так:Подробнее ...
как найти положительные элементы в массиве (Паскаль)
Знаток
(333),
на голосовании
8 лет назад
Голосование за лучший ответ
Дед Мазай Гений
(58003)
8 лет назад
Берёшь первый элемент массива, и проверяешь, является ли число положительным. Знаешь, как отличить положительное число от других? Потом следующий элемент, и т. д.
johnsilver Просветленный
(22277)
8 лет назад
var i,n:integer; begin n:=random(25); writeln(‘Начат поиск положительных элементов в массиве’); for i:=0 to n do if random(2)=1 then writeln(‘Найдено’); writeln(‘Поиск закончен’); end.
Надо найти второй положительный элемент массива. Вот мои наработки:
program summa;
var
a: array [1..100] of integer;
i, sum, n: integer;
begin
Randomize;
Write('Введите размер массива: ');
Readln(n);
Writeln('Массив:');
for i := 1 to n do
begin
a[i] := Random(20) - random(17);
Write(a[i]:4);
end;
Writeln;
sum:=0;
for i := 1 to n do
///решение
end.
program HelloWorld;
var
a: array [1..100] of integer;
i, sum, n, k: integer;
begin
Randomize;
k:=0;sum:=0;
Write('Введите размер массива: ');
Readln(n);
Writeln('Массив:');
for i := 1 to n do
begin
a[i] := Random(0) - random(20);
if a[i] > 0 then begin inc(k);
if k = 2 then sum := a[i]; end;
Write(a[i]:4);
end;
writeln;
case k of
0: Writeln('Нет положительных элементов');
1: Writeln('Нет второго положительного элемента');
else Writeln('Второй положительный элемент : ',sum);
end;
end.
Подробнее ...
Инструкция. Как узнать кто заходил на страницу / задавал вопрос
Как создать ASK.fm в ВКонтакте
Что такое ASK.fm
Как привязать АСК к ВК
Как отвязать АСК от страницы ВК
Как найти человека в Ask.fm?Какие есть способы?
Как можно найти человека на сайте аск.фм? Можно ли найти человека на сайте аск.фм по id его страницы в социальной сети?
Поскольку и на аске, и ВКонтакте можно поставить в адрес страницы свой никнейм, очень вероятно, что у человека будет такое же имя в «аске», как и в контакте. Попробуйте забить в поиск по аску то, что высвечивается в адресе его страницы ВК после адреса сайта.Подробнее ...
Я думаю многим знакомо когда педаль сцепления начинает сильно люфтить и вроде передачи залетают на ура, но все же не приятно. Цена вопроса 100 рублей. Покупаем в магазине ремкомплект сцепления — пластиковое коромысло, та что с пружинкойПодробнее ...
Почему не взбиваются белки и как это исправить: Pixabay
Пышно взбитые белки позволяют создать множество кулинарных шедевров. К сожалению, они не всегда превращаются в плотную и пышную пену. На это есть несколько причин. Почему не взбиваются белки и как исправить проблему, объяснили кулинарные эксперты Даниэль Гритцер, Молли Уотсон и Данило Альфаро. Подробнее ...
Где искать клиентов: соцсети, блоги, агрегаторы и не только
11 источников для привлечения заказчиков
У тех, кто работает на себя, нередко возникают проблемы с поиском заказчиков. Кажется, что для этого обязательно нужно настраивать рекламу, делать рассылки, создавать сайт. Но это не так.Подробнее ...