===== 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)
