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

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

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

+3
Ответы (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. Дан массив целых чисел. Чётные элементы возвести в ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Хотя бы 3-4 задачи! 1) Дан одномерный целочисленный массив размерностью N. Найдите количество элементов, которые кратны 3 (5). 2) Дан одномерный целочисленный массив А, состоящий из N элементов. Найти сумму всех четных элементов массива.
Ответы (1)
Все задачи делаются в Паскале! 1) Увеличить все элементы массива A на 1. 2) Умножить все элементы массива A на 2. 3) Возвести в квадрат все элементы массива A.
Ответы (1)
1) Дан массив целых чисел из 12 элементов. Напечатать все четные элементы. 2) Дан массив целых чисел из 10 элементов. Все элементы, кратные числу 10, заменить нулём. Нужна полная программа, Pascal ABC.
Ответы (1)
1. Дан одномерный массив размерностью 10, заполненный целыми числами, введенными с клавиатуры, и величина N. Отрицательные элементы заменить на N. Измененный массив вывести на экран одной строкой. 2.
Ответы (1)
1. Дан массив. Напечатать: а) Все четные 1. Дан массив. Напечатать: а) Все четные элементы б) Все элементы, оканчивающиеся нулем. 2. В массиве хранится информация о количестве осадков, выпавших каждый день января.
Ответы (1)