Помогите, пожалуйста, составить программку в ПАскаль абс и блок-схему:В данной
Помогите, пожалуйста, составить программку в ПАскаль abs и блок-схему:
В заданной целочисленной квадратной матрице поменять нулями минимальные элементы каждой строчки
1 ответ
Арсений Новолоцкий
//PascalABC.NET 3.2 сборка 1318
Const
n=3;
m=2;
Var
ma:array[1..n,1..m] of integer;
i,j,min:integer;
begin
for i:=1 to n do
begin
min:=integer.MaxValue;
for j:=1 to m do
begin
readln(ma[i,j]);
if ma[i,j]lt;min then min:=ma[i,j];
end;
for j:=1 to m do
if ma[i,j]=min then ma[i,j]:=0;
end;
writeln('Final matrix:');
for i:=1 to n do
begin
for j:=1 to m do
write(ma[i,j]:4);
writeln;
end;
end.
Const
n=3;
m=2;
Var
ma:array[1..n,1..m] of integer;
i,j,min:integer;
begin
for i:=1 to n do
begin
min:=integer.MaxValue;
for j:=1 to m do
begin
readln(ma[i,j]);
if ma[i,j]lt;min then min:=ma[i,j];
end;
for j:=1 to m do
if ma[i,j]=min then ma[i,j]:=0;
end;
writeln('Final matrix:');
for i:=1 to n do
begin
for j:=1 to m do
write(ma[i,j]:4);
writeln;
end;
end.
Виктор Комисаренко-Шпраго
что означает "ma" в цикле?
Олег
поточнее что значит этот кусок : write(ma[i,j]:4); ?
Люба
ma - обозначение матрицы. Да, одним из показателей превосходного стиля являются осмысленные наименования переменных, но, увы, я не могу пока себя приучить.
Надежда Корытникова
write(ma[i,j]:4); - вывод элемента двумерного массива ma c индексами i и j c отступом в 4 пробела.
Kristina
а отступ в 4 пробела обязателен, либо если я уберу это :4, программка не заработает?
Виолетта Музолева
Нет, не обязателен, просто числа слипнутся при выводе.
Константин Бадашов
все сообразил, громадное спасибо за решение и изъясненье
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Облако тегов