Задать вопрос
29 июня, 18:54

Задан массив K (n). И отрицательные элементы массива заменить на их квадраты. Вывести их индексы и новые значения.

+3
Ответы (1)
  1. 29 июня, 19:26
    0
    Const

    i=10;

    var k:array[1 ... i] of integer;

    n:integer;

    begin

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

    for n:=1 to i do begin

    read (k[n]) ;

    if k[n]<0 then k[n]:=sqr (k[n]) ;

    end;

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

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Задан массив K (n). И отрицательные элементы массива заменить на их квадраты. Вывести их индексы и новые значения. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1) Задан массив из 11 целых чисел. Найти сумму элементов массива, кратных 5 2) Задан массив из 11 целых чисел. Посчитать количество нечётных элементов массива. 3) задан массив из 9 целых чисел. Вывести на экран чётные элементы
Ответы (1)
1. Возвести в квадрат все элементы массива A. Размер массива и значения элементов массива - произвольные. 2. Увеличить на 4 все элементы в первой половине массива A (считать, что в массиве чётное число элементов).
Ответы (1)
PascalABC 1. Задан массив А (N). Получить из него массив В, состоящий из элементов массива А, значения которых больше 0. 2. Задан двухмерный массив целых чисел A[N, M]. Найти строки, содержащие нулевые элементы.
Ответы (1)
Все задачи делаются в Паскале! 1) Увеличить все элементы массива A на 1. 2) Умножить все элементы массива A на 2. 3) Возвести в квадрат все элементы массива A.
Ответы (1)
Хотя бы 3-4 задачи! 1) Дан одномерный целочисленный массив размерностью N. Найдите количество элементов, которые кратны 3 (5). 2) Дан одномерный целочисленный массив А, состоящий из N элементов. Найти сумму всех четных элементов массива.
Ответы (1)