Заменить все элементы строки с номером k и столбца с номером l на противоположные по знаку (элемент, стоящий на пересечении, не
5-9 класс
|
изменять).
program x;
const n = 10; m = 10;
var ms: array [1..n, 1..m] of integer;
a,b,k,i: integer;
begin
for a:=1 to n do
for b:=1 to m do
read(ms[a,b]);
readln(k); readln(i);
for a:=1 to n do
for b:= 1 to m do
if ((a=k) and (b<>i)) or ((a<>k) and (b=i)) then
ms[a,b]:= -ms[a,b];
end.
Другие вопросы из категории
может быть зашифровано в виде кода #$@$%#&?
1) монитор; 2) плоттер; 3)
информации ? Написать с Дано: , Найти: и Решение: .
Читайте также
2)Составьте программу,которая заполняет массив e[1..8] случайными целыми числами в диапазоне от 1 до 20 и находит сумму элементов с нечётными значениями и количество элементов кратных 3.
3)Составьте программу,которая заполняет массив e[1..14] случайными целыми числами в диапазоне от -10 до 10,затем изменяет знак положительных элементов на противоположный,а отрицательные элементы заменяет на 0.Спасибо.
на паскале:
заполнить массив из 12 целых числе данных из клавиатуры.Найти сумму и кол-во всех отрицательных числе массива, заменить все числа которые больше десяти нулями.Вывести полученный массив на экран.
СПС за ранее как можно быстрее!
N) произведения нечетных элементов 2)Составьте программу вычисления в массиве B(N) максимального среди отрицательных элементов и его номера. заранее огромное спасибо! очень нужно!
экране на 2, а выполняякоманду номер 2, прибавляет к числу на экране 1. Напишите программу, содержащую неболее 5 команд, которая из числа 6 получает число 33. Укажите лишь номера команд.Например, программа 12122 -это программа:Умножь на 2Прибавь 1Умножь на 2Прибавь 1Прибавь 1которая преобразует число 5 в число 24.
1) Заменить все чётные элементы на их номера. Вывести на экран исходный и новый массив.
2) Заменить все чётные элементы, стоящие на нечетных местах, на их номера.