ПАСКАЛЬ 1)В двумерном массиве 4 на 3 заменить все нулевые элементы на первый элемент матрицы . 2) Заменить все элементы главной
10-11 класс
|
диагонали на максимальный элемент той же строки
var a:array[1..20,1..20]of integer;
i,j:integer;
begin
for i:=1 to 4 do
for j:=1 to 3 do
readln(a[i,j]);
for i:=1 to 4 do
for j:=1 to 3 do
if a[i,j]=0 then a[i,j]:=a[1,1];
for i:=1 to 4 do begin
for j:=1 to 3 do
write(a[i,j],' ');
writeln;end;
end.
Другие вопросы из категории
1) Определите ,на сколько отличается рост самого высокого и самого низкого учащегося в классе?
2) результаты переписи населения, которые хранятся в памяти компьютера. Элемент массива -год рождения жителя. Подсчитайте общее число жителей, родившихся раньше 1958 года.
3) С 8 до 20 часов температура воздуха измерялась ежечасно, и результаты измерения заносились в компьютер. Известно, что в течение этого времени температура понижалась. Напишите программу, определяющую, в котором часу была впервые отмечена отрицательная температура
числа, но в разных системах счисления. Найдите основания этих систем.
Читайте также
В двумерном массиве М[1..6,1..4] определить индексы наименьшего элемента в каждой строчке.
Найти произведение отрицательных элементов указанной строки двумерного массива размером 4*5 целых чисел.
экран. Найти среднее арифметическое элементов первой половины массива и сумму элементов второй половины массива.
паскаль массивы
Надо составить программу в Паскале, где в двумерном массиве вычисляется количество нулей на главной диагонали.
Завтра сдавать надо( В интернете не нашла ничего толкового..
Дан двумерный массив.в квадратной матрице заменить все симметричные и равные элементы на нули.Решить с помощью процедур