Двумерный массив. Найти сумму всех элементов, которые не принадлежат интервалу (a,b)

@Divin · Регистрация: 05.05.2010

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

2)В матрице размером n на m (1<n,m,10) (ввод n,m и матрицы с клавиатуры) найти сумму всех элементов,
которые не принадлежат интервалу (a,b) a и b вводятся с клавиатуры.Вывести на экран матрицу и сумму.Использовать подпрограммы.
ОГРОМНАЯ ПРОСЬБА ПОМОЧЬ!!!

@AI\EKCAH^P · 10.05.2010, 18:40

Pascal

program zad;
type mas=array[1..100,1..100] of integer;
var
a:mas;
i,j,m,n:integer;
procedure poisk(b:mas;k,l:integer);
var
i,j,t,kol:integer;
massiv:array[1..100] of integer;
begin
  write('введите t ');readln(t);
  kol:=0;
  for i:=1 to k do
  begin
    for j:=1 to l do
    begin
      if abs(b[i,j])<t then
      begin
        kol:=kol+1;
        massiv[kol]:=b[i,j];
      end;
    end;
  end;
  if kol=0 then writeln('таких элементов нет!!!');
  for i:=1 to kol do
  write(massiv[i]:4);
end;
begin
  randomize;
  write('введите m ');readln(m);
  write('введите n ');readln(n);
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(101)-50;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  poisk(a,m,n);
  readln;
end.

@Divin 0 / 0 / 0 Регистрация: 05.05.2010 Сообщений: 24
		1
	Двумерный массив. Найти сумму всех элементов, которые не принадлежат интервалу (a,b) 10.05.2010, 18:16. Показов 1620. Ответов 1 Метки нет (Все метки) 2)В матрице размером n на m (1<n,m,10) (ввод n,m и матрицы с клавиатуры) найти сумму всех элементов, которые не принадлежат интервалу (a,b) a и b вводятся с клавиатуры.Вывести на экран матрицу и сумму.Использовать подпрограммы. ОГРОМНАЯ ПРОСЬБА ПОМОЧЬ!!! 0

	10.05.2010, 18:40

Двумерный массив. Найти сумму всех элементов, которые не принадлежат интервалу (a,b)

Решение