Обнулить элементы в нижней части матрицы

@Анжела Дворкова · Регистрация: 17.11.2014

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

есть матрица (размер не задан - я выбрала 8 на 6)
нужно сделать так, чтобы нижняя часть матрицы (3 последних строчки) выводилась вся нулями
я пробовала делать, подскажите что не так

Обнулить элементы в нижней части матрицы

@Puporev · 13.09.2015, 14:58

Анжела Дворкова, Приведите текст кода, а не картинку, она и нафиг никому не нужна.

Добавлено через 1 минуту
И не пишите код в верхнем регистре, это не Бейсик.

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

Сообщение от Анжела Дворкова

чтобы нижняя часть матрицы (3 последних строчки) выводилась вся нулями

Pascal

1	if i in [m-2,m] then a[i,j]:=0;

i-номер строки, j-номер столбца, m-количество строк.

@Анжела Дворкова · 13.09.2015, 15:00 **[ТС]**

Pascal

USES CRT;
CONST
  KRAD=8;
  KSTO=6;
VAR
  A: ARRAY [1..KRAD, 1..KSTO] OF INTEGER;
  I, J: INTEGER;
BEGIN
WRITELN ('ENTER MATRIX')
   FOR I:=1 TO KRAD DO
     FOR J:= TO KSTO DO
        READ (A[I,J]);
CLSCRC;
WRITELN ('MATRIX A ');
  FOR I:=1 TO KRAD DO
     BEGIN
     FOR J:= TO KSTO DO
        IF [I,J]>(KRAD/2) THEN [I,J]:=0
       WRITE(A[I,J]);
WRITELN;
END.

@Puporev · 13.09.2015, 15:16

Pascal

uses crt;
const
  krad=8;
  ksto=6;
var
  a: array [1..krad, 1..ksto] of integer;
  i, j: integer;
begin
randomize;
writeln ('enter matrix');
for i:=1 to krad do {лень вводить 48 чисел руками}
 begin
  for j:=1 to ksto do
   begin
    a[i,j]:=1+random(50);
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln ('matrix a ');
for i:=1 to krad do
 begin
  for j:=1 to ksto do
  if i in [krad-2..krad] then write(0:3)
  else  write(a[i,j]:3);
  writeln;
 end;
readln
end.

@Анжела Дворкова · 13.09.2015, 15:26 **[ТС]**

спасибо большое!!!

@Анжела Дворкова 0 / 0 / 0 Регистрация: 17.11.2014 Сообщений: 8
		1
	Обнулить элементы в нижней части матрицы 13.09.2015, 14:53. Показов 2117. Ответов 4 Метки нет (Все метки) есть матрица (размер не задан - я выбрала 8 на 6) нужно сделать так, чтобы нижняя часть матрицы (3 последних строчки) выводилась вся нулями я пробовала делать, подскажите что не так 0

@Анжела Дворкова 0 / 0 / 0 Регистрация: 17.11.2014 Сообщений: 8
	13.09.2015, 15:26 [ТС]	5
	спасибо большое!!! 0

Обнулить элементы в нижней части матрицы

Решение