Question

Срочно нужен код программ на паскале
1. Найти сумму положительных элементов массива.
2. Найти сумму всех четных элементов массива (или сумму элементов, кратных заданному числу).
3. Найти сумму всех четных элементов массива, стоящих на четных местах, то есть имеющих четные номера.
4. Найти сумму первых пяти элементов массива.
5. Найти сумму элементов с k1-ro по k2-й, где k1 и k2 вводятся с клавиатуры. Сделать проверку корректности их ввода.
6. Найти сумму элементов, больших данного числа А (А вводить с клавиатуры).
7. Найти сумму элементов, принадлежащих промежутку от А до В (А и В вводить с клавиатуры).
Примечание. В задачах 1 — 7 можно находить не только сумму, но и произведение, или проверять, что сумма первых двух цифр равна сумме последних двух цифр.
8. Найти максимальный элемент массива и его номер при условии, что все элементы различные.
9. Найти номера всех отрицательных элементов (вывести их на экран); если таких нет, то сообщить об этом.
10. Найти номера всех элементов с максимальным значением.
11. Найти минимальный элемент.
12. Найти число нечетных элементов.
13. Найти число отрицательных элементов.
14. Сколько элементов массива превосходят по модулю заданное число А?
15. Найти все элементы, кратные 3 или 5. Сколько их?
16. Есть ли в данном массиве два соседних положительных элемента? Найти номера первой (последней) пары.
17. Есть ли в данном массиве элемент, равный заданному числу? Если есть, то вывести номер одного из них.
18. Найти число четных чисел среди пяти целых чисел (без использования массива).
19. Если существует треугольник со сторонами а, b и с, то напечатать «ДА», в других случаях напечатать «НЕТ» (значении a, b и с вводить с клавиатуры).

Answer 1

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Var A:array[1..100] of integer;     i,n,k,s:integer; Begin     write('Введите размерность: ');readln(n);     For i:=1 to n do     Begin       A[i]:=random(31)-15;       write(A[i]:4);       if A[i] mod 2 = 0 then       Begin         s:=s+A[i];         inc(k);       End;     End;     writeln;     writeln('Сумма чётных= ',s);     writeln('Кол-во чётрых= ',k);     readln; End.