Нужна помошь

[rasamaha]

Этеншн, народ нужна помошь, поступил на первый курс в институт, вот сча сессия, долги сдаю, есть 20 задачек по поскалю, ктонить может посмотреть, что знаете решить, очень нужно, а то наф из института попрут Зарание огромное спасибо

Задачи к экзамену по программированию 1 семестр.

1. Дана непустая последовательность различных неотрицательных целых чисел, за которой следует число -1. Написать программу, которая обеспечивает ввод такой последовательности чисел, определяет, сколько среди них чисел, кратных 3 и выводит эти числа.

2. Дана последовательность не менее чем из трех положительных целых чисел, за которыми следует 0. Написать программу, которая обеспечивает ввод такой последовательности чисел и определяет, сколько из них больше своих «соседей», т. е. предыдущего и последующего.

3. Дана непустая последовательность ненулевых целых чисел, за которой следует 0. Написать программу, которая обеспечивает ввод такой последовательности чисел и определяет, сколько раз в этой последовательности меняется знак.

4. Дана непустая последовательность ненулевых целых чисел, за которой следует 0. Написать программу, которая обеспечивает ввод такой последовательности чисел и определяет, сколько в этой последовательности чисел палиндромов. Палиндром – число, которое читается справа налево и слева направо одинаково.

5. Написать программу, которая определяет все простые делители заданного натурального числа. Делителями числа является все числа от 1 до самого числа, которые нацело делят само число. Простым является такое число, у которого всего два делителя: 1 и само число.

6. Дана последовательность из N целых чисел. Написать программу, которая обеспечивает ввод такой последовательности чисел и определяет количество элементов с четной суммой цифр.

7. Дана непустая последовательность ненулевых целых чисел, за которой следует 0. Написать программу, которая обеспечивает ввод такой последовательности чисел и определяет, сколько раз в этой последовательности встречаются числа, в десятичной записи которых нет одинаковых цифр.

8. Дана непустая последовательность шестизначных целых чисел, за которой следует 0. Написать программу, которая обеспечивает ввод такой последовательности чисел и определяет, сколько этой последовательности «счастливых» чисел.

9. Дано число. Если оно по модулю больше 10, то определить, четность первых двух цифр.

10. Определить количество четных и произведение нечетных чисел в массиве А(N).

11. Найти наибольшее значение (xi – yi) для массивов (x1, x2, ..., x50) и (y1, y2,..., y50).

12. В одномерном массиве D из K чисел поменять местами элементы массива с номерами m и n.

13. Найти сумму элементов одномерного массива размером 4. Разделить каждый элемент исходного массива на полученное значение, поместив результат в том же массиве.

14. Дан массив A = (a1,...,a10). Сформировать два массива, включая в первый элементы исходного массива с четными индексами, а во второй – с нечетными.

15. Даны действительные числа а1, …, а100 (положительные и отрицательные). Все числа, начиная с первого положительного, уменьшить на 0,5.

16. Дан массив А(20) вещественных чисел, содержащий хотя бы одно отрицательное число. Определить N – номер первого отрицательного числа и найти среднее арифметическое чисел а1, а2, ..., аN.

17. Определить в одномерном массиве P из Х чисел количество чисел, равных максимальному (минимальному) элементу этого массива.

18. Даны целые числа a1,...,a100. Найти максимальное из них и получить новую последовательность, заменяя ai на 0, если ai равно найденному максимальному, и – на 1 в противном случае.

19. Определить порядковые номера первого и последнего элементов одномерного массива А, равных максимальному элементу этого массива.

20. Даны натуральные числа b1, b2, ..., bN. Вычислить f(b1) + f(b2) +... + f(bN), где

21. Определить в массиве A = (a1,...a50) количество элементов, больших среднего арифметического всех элементов этого массива.

22. В массиве A = (a1, ..., a20) есть хотя бы один отрицательный элемент. Вычислить произведение элементов массива до первого отрицательного.

23. Сформировать одномерные массивы A и B соответственно из положительных и отрицательных элементов массива X = (x1, ..., x50).

24. Дан массив чисел. Составить программу, определяющую максимальное количество идущих подряд четных чисел.

Прошу прошения, так получилось что темы 3 штуки, 2 можно удалить, я не со зла :)

[skilk]

22:

program twentytwo;vara: array[0..19] of integer;i: integer;pow: integer;beginpow := 1;for i := 0 to 19 do begin  writeln('vvedite chislo v masiv);  readln(a[i]); end; for i := 0 to 19 do  beginif a[i] >= 0 then begin  pow := pow * a[i]; end else  break  end;writeln('proizvedenie rovno', pow);readln;end.

будет время ещё сделаю

Изменено 14 февраля, 2008 пользователем skilk

[Ф@РТОВЫЙ]

11. Найти наибольшее значение (xi – yi) для массивов (x1, x2, ..., x50) и (y1, y2,..., y50).

program p11;var  x,y:array[1..50] of integer;  i,zn:integer;begin for i := 1 to 50 do beginwrite('Введите в массив X елемент ', i:2, ': ');readln(x[i]); end; for i := 1 to 50 do beginwrite('Введите в массив Y елемент ', i:2, ': ');readln(y[i]); end; writeln; zn := x[1] - y[1]; for i := 1 to 50 do beginif (x[i] - y[i]) > zn then zn := x[i] - y[i]; end; writeln('Наибольшее значение: ', zn); readln;end.