Обнулить строки матрицы с задаными номерами

@Дмитрий Никишов · Регистрация: 29.11.2018

Author24 — интернет-сервис помощи студентам

Задана целочисленная матрица A размерностью N*M и массив X(N). Обнулить строки матрицы с номером K, для которого X[K] >=0.

Составить программу и блок-схему.

@Puporev · 29.11.2018, 17:40

Сообщение от Дмитрий Никишов

для которого
X[K] >=0.

Это о чем?

@Дмитрий Никишов · 29.11.2018, 17:49 **[ТС]**

Это к задаче тоже, Обнулить строки матрицы с номером К, для которого X[K]>=0

@Puporev · 29.11.2018, 17:51

Да что такое X[k]? Ты можешь хотя бы условие задачи написать без ошибок?

@Дмитрий Никишов · 29.11.2018, 17:54 **[ТС]**

Это и есть все правильное условие

@Puporev · 29.11.2018, 18:06

Извини, понял.

Добавлено через 10 минут

Pascal

var a:array[1..20,1..20] of integer;
    x:array[1..20] of integer;
    n,m,i,j,k,q:byte;
begin
randomize;
repeat
writeln('Введите количество строк от 1 до 10 n=');
readln(n);
until n in [2..10];
repeat
writeln('Введите количество столбцов от 2 до 20 m=');
readln(m);
until m in [2..20];
writeln('Матрица');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=1+random(20);
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln('Массив Х');
for i:=1 to n do
 begin
  x[i]:=-5+random(11);
  write(x[i]:3);
 end;
writeln;
writeln('Обнуление строк при неотрицательных элементах массива Х ');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    if x[i]>=0 then a[i,j]:=0;
    write(a[i,j]:3);
   end;
  writeln;
 end;
end.

@Дмитрий Никишов 0 / 0 / 0 Регистрация: 29.11.2018 Сообщений: 8
		1
	Обнулить строки матрицы с задаными номерами 29.11.2018, 17:13. Показов 1921. Ответов 5 Метки нет (Все метки) Задана целочисленная матрица A размерностью N*M и массив X(N). Обнулить строки матрицы с номером K, для которого X[K] >=0. Составить программу и блок-схему. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	29.11.2018, 17:40	2
	Сообщение от Дмитрий Никишов для которого X[K] >=0. Это о чем? 0

@Дмитрий Никишов 0 / 0 / 0 Регистрация: 29.11.2018 Сообщений: 8
	29.11.2018, 17:49 [ТС]	3
	Это к задаче тоже, Обнулить строки матрицы с номером К, для которого X[K]>=0 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	29.11.2018, 17:51	4
	Да что такое X[k]? Ты можешь хотя бы условие задачи написать без ошибок? 0

@Дмитрий Никишов 0 / 0 / 0 Регистрация: 29.11.2018 Сообщений: 8
	29.11.2018, 17:54 [ТС]	5
	Это и есть все правильное условие 0

	29.11.2018, 18:06

Обнулить строки матрицы с задаными номерами

Решение