===== PascalABC.NET =====
begin
// 1
var a := ArrRandom(7, -4, 5);
a.Println;
// 2
var b := ReadArrInteger('Введи 8 чисел:', 8);
Println('Сумма четных:', b.Where(p -> p.IsEven).Sum);
var p := b.Where(p -> p > 4).DefaultIfEmpty.Product;
if p >0 then
Println('Произведение элементов, больших 4:', p)
else
Println('Нет элементов, больших 4');
// 3
var c := ArrRandom(10, -14, 7);
c.Println;
Print('Минимальный элемент, больший 5');
var m := c.Where(p -> p > 5).DefaultIfEmpty.Min;
if m = 0 then
Println('отсутствует')
else
Println('равен', m);
var im := c.IndexMin;
Println('Миниммальный элемент номер', im + 1, 'равен ', c[im])
end.
![Максимум ! написать программы на языке паскаль: 1) дан массив, заданный на интервале [-4; 5], состоя](/tpl/images/1046/1295/27fb7.jpg)
#summa vtorqh elementov s konca chisel, kotorqe bolshe 9 s proverkoj na 9
a=0
b=0
c=0
print("Vvedite celqe chisla bolshe 9\n")
while int (a) < 10:
a = input("Vvedite pervoe chislo: ")
else:
while int (b) < 10:
b = input("Vvedite vtoroe chislo: ")
else:
while int (c) < 10:
c = input("Vvedite tretje chislo: ")
a=str(a)[::-1] #Perevodim v stroku i reversiruem
b=str(b)[::-1] #t.k. nachinaem sleva napravo
c=str(c)[::-1] #i tak legche vsego najti vtoroe chislo s konca
A=int(a[1]) #perevodim obratno v int dlja provedenija matem operacij nad nimi
B=int(b[1]) #element [1] i budet vtoroe chislo s konca
C=int(c[1])
if A==1:
A=A+1
if B==1:
B=B+1
if C==1:
C=C+1
sum = A+B+C
print("Summa desjatkov = " + str(sum))
Объяснение:
Это на python, наверное далеко не самый корректный код, но задачу выполняет. Если я правильно понял, то например у числа 12 десятком будет 2? (Судя по заданию) - если это не так, то надо всего лишь удалить весь блок проверки if (от if A==1: до C=C+1)
в цикле от второго до предпоследнего элемента смотрятся текущий элемент и его соседи. если текущий элемент больше своих соседей, то в память записывается номер текущего элемента и цикл завершается (потавить переменную в true, а в усовии выполнения цикла потставить ещё проверку значения этой перевенной), первый элемент тройки - то число в памяти-1, второй элемент - само число, а третий элемент - число в памяти+1. Если при завершение цикла не было найдено таких троек(та перменная равна false), то значит таких троек нет.
ПСЕВДОКОД
[n] - n-ый элемент массива(перед [ пишется название массива)(нумерация элементов начинается с нуля)
размер массива - N
массив М;
целое число (intenger) А := 0;
логическа единица(boolean) B := false;
целое число i := 1;
пока(i<N-1 И B=false)
начало
ЕСЛИ(M[i]>M[i-1] И M[i]>M[i+1])
начало
A := i;
B := true;
конец
i := i+1;
конец
ЕСЛИ (B = false) то таких троек нет
ИНАЧЕ то A-1 - превый элемент тройки, A - второй, A+1 - третий.