Pascal ABC новая задача 11 класс
1)Сформировать массив A(N), заполнив его целыми числами из отрезка [-2,5]. Вывести массив на экран.
2)Найти сумму отрицательных элементов в первой половине массива.
3)Найти произведение элементов во второй половине массива.
4)Возвести все максимальные элементы в квадрат.
5)Заменить все отрицательные элементы, стоящие под четными номерами, их абсолютным значением.

  • Задача одна, но разбитая на 5 пунктов:

    1) N := 0; for i := -2 to 5 do begin Inc(N); A[ i ] := i; Write(i:2); end; WriteLn;

    2) S := 0; for i := 1 to N div 2 do if A[ i ] < 0 then Inc(S, A[ i ]);

    3) P := 1; for i := N div 2 + 1 to N do P := P * A[ i ];

    4) A[N] := A[N] * A[N];

    5) i := 2; while i <= N do begin if A[ i ] < 0 then A[ i ] := -A[ i ]; Inc( i. 2); end;

    Собери всё в одну программу… и будет тебе счастье!

  • Цена вопроса?
  • Пишите в почту, сделаю.
  • 5 задач * 20руб и жди решения
  • Поддержу предыдущих ораторов. Сколько платишь?

Вас заинтересует