Сдать решение задачи 2-Последовательность
Полный : 1
Ограничение времени: 1 с
Ограничение реального времени: 5 с
Ограничение памяти: 256M
Последовательность
Составьте программу, которая принимает на вход в первой строке натуральное число N (1 < N < 32768), а из второй строки считывает последовательность из N целых чисел Ai (-32769 < Ai < 32768), разделённых пробелами. Как результат своей работы программа выводит количество элементов последовательности Ai таких, что они положительны и их номер i таков, что min(H, L) ≤ i ≤ max(H, L), где H -- номер максимального элемента последовательности, расположенного ближе всего к её концу, L -- номер минимального элемента последовательности, расположенного ближе всего к её началу.
Формат входных данных
В первой строке содержится целое положительное число N — длина последовательности (1 < N < 32768).
Во второй строке содержится последовательность, состоящая из N целых чисел Ai (-32769 < Ai < 32768), разделённых пробелами.
Формат результата
В первой и единственной строке выводится неотрицательное целое число, равное искомому количеству элементов последовательности (это число от 0 до 32767).
program z;
var
i : integer;
begin
Writeln('Введите число'); Readln(i);
if i mod 2 = 0
then
Writeln('Число чётное')
else
Writeln('Число не чётное');
readln;
end.
2
program z;
var
i : integer;
begin
Writeln('Введите число'); Readln(i);
if i mod 3 = 0
then
Writeln('Число делится на 3')
else
Writeln('Число не делится на 3');
readln;
end.
3
program z;
var
i: array[1..6] of byte;
x:byte;
begin
for x:=1 to 6 do
begin
Writeln('Введите ', x,' цифру из 6 ');
Read(i[x]);
end;
if (i[1]+i[2]) = (i[4]+i[5]+i[6])
then
Writeln('Билет счастливый')
else
Writeln('Билет не счастливый');
Readln;
end.
5)))
program z;
var
i : integer;
begin
Writeln('Введите число'); Readln(i);
if i mod 6 = 0
then
Writeln('Число делится на 6')
else
Writeln('Число не делится на 6');
readln;
end.
6
program z;
var
a,b:integer;
begin
Writeln('Введите число A'); Readln(a);
Writeln('Введите число B'); Readln(b);
if b mod a = 0
then Writeln('Число А делится нацело на число В')
else Writeln('Число А не делится нацело на число B');
Readln;
end.