8 октября, 21:39

В заданном массиве a от n целых элементов, все нечетные по значению элементы удвоить, а чётные увеличить на 1.

Все четные элементы по номеру возвести в квадрат

0
Ответы (1)
  1. 8 октября, 22:15
    0
    var n, i:longint;

    var a:array[1 ... 10000000] of longint;

    begin

    writeln ('Введите количество элементов массива') ;

    readln (n) ;

    writeln ('Введите все элементы массива через пробел') ;

    for i:=1 to n do read (a[i]) ;

    for i:=1 to n do if (a[i] mod 2 = 0) then a[i]:=a[i]+1 else if a[i] mod 2 0 then a[i]:=a[i]*2;

    for i:=1 to n do if i mod 2 = 0 then a[i]:=sqr (a[i]) ;

    for i:=1 to n do write (a[i],' ') ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «В заданном массиве a от n целых элементов, все нечетные по значению элементы удвоить, а чётные увеличить на 1. Все четные элементы по ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы