Дан массив.Все его элементы умножить на последний элемент.
Дан массив.Все его элементы умножить на последний элемент.
Ответ(ы) на вопрос:
const n = 10; //количество элементов массива var a: array [1..n] of real; i: integer; begin for i:= 1 to n do begin writeln('Введите ', i, ' элемент массива'); readln(a[i]); //вводим очередной элемент массива end; write('Исходный массив: '); for i:= 1 to n do write(a[i], ' '); //Выводим исходный массив writeln; //Перевод на новую строку write('Полученный массив: '); for i:= 1 to n do begin a[i]:= a[i] * a[n]; //элемент массива умножаем на последний элемент write(a[i], ' '); //выводим полученный элемент массива end; end.
Не нашли ответ?
Похожие вопросы