В двухмерном массиве заменить элементы, большие 1, но меньшие 3 нулями

@Dis_ID · Регистрация: 10.06.2014

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

В двухмерном массиве заменить элементы,большие 1, но меньшие 3 нулями. Массив заполнить случайными числами в интервале от -3 до 100. Вывести на экран исходный и полученные массивы в виде таблицы.

@Xo6ut · 25.06.2014, 01:55

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    i,j,n:integer;
begin
 repeat
  write('Порядок марици n=');
  readln(n);
 until n in [1..nmax];
 writeln('Исходная матрица :');
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      a[i,j]:=-3+random(101);
      write(a[i,j]:5);
     end;
    writeln;
   end;
  writeln('Новая матрица :');
   for i:=1 to n do
    begin
     for j:=1 to n do
      begin
       if (a[i,j]>1)and (a[i,j]<3) then
        a[i,j]:=0;
       write(a[i,j]:5);
      end;
     writeln;
    end;
end.

@Dis_ID 0 / 0 / 0 Регистрация: 10.06.2014 Сообщений: 8
		1
	В двухмерном массиве заменить элементы, большие 1, но меньшие 3 нулями 24.06.2014, 21:03. Показов 1405. Ответов 1 Метки нет (Все метки) В двухмерном массиве заменить элементы,большие 1, но меньшие 3 нулями. Массив заполнить случайными числами в интервале от -3 до 100. Вывести на экран исходный и полученные массивы в виде таблицы. 0

	25.06.2014, 01:55

В двухмерном массиве заменить элементы, большие 1, но меньшие 3 нулями

Решение