Задать вопрос
10 октября, 00:33

1. Дан массив целых чисел. Все отрицательные элементы заменить положительными.

2. Дан массив целых чисел. Чётные элементы возвести в квадрат остальные разделить пополам

+5
Ответы (1)
  1. 10 октября, 00:45
    0
    1)

    var a:array [1 ... 3] of integer;

    b, i:integer;

    z:real;

    begin

    randomize;

    for i:=1 to 3 do

    read (a[i]) ;

    for i:=1 to 3 do

    if a[i]<0 then a[i]: = (-1) * a[i];

    for i:=1 to 3 do

    write (' ', a[i]) ;

    end.

    2)

    var a:array [1 ... 3] of integer;

    b, i:integer;

    z:real;

    begin

    randomize;

    for i:=1 to 3 do

    read (a[i]) ;

    for i:=1 to 3 do

    if a[i] mod 2 = 0 then a[i]:=a[i]*a[i]

    else a[i]:=a[i]/2;

    for i:=1 to 3 do

    write (' ', a[i]) ;

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