Найти количество элементов матрицы, удовлетворяющих заданному условию

@Ofnya · Регистрация: 04.05.2017

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

Найти количество элементов матрицы А, удовлетворяющих условию: -100<=A(I,J)<=100 и образовать из этих элементов массив В. (Паскаль)

@ZX Spectrum-128 · 04.05.2017, 18:34

Pascal

const
  n = 10;
 
var
  a: array[1..n, 1..n] of longint;
  b: array[1..n * n] of longint;
  k, i, j: longint;
 
begin
  writeln('Array A:');
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := -n * n div 2 + random(n * n * 2);
      write(a[i, j]:5);
    end;
    writeln;
  end;
  k := 0;
  for i := 1 to n do
    for j := 1 to n do
      if (a[i, j] >= -100) and (a[i, j] <= 100) then 
      begin
        inc(k);
        b[k] := a[i, j];
      end;
  writeln('Количество элементов матрицы А, удовлетворяющих условию: ', k);      
  writeln('Array B:');
  for i := 1 to k do 
    write(b[i]:5);
end.

@Ofnya 0 / 0 / 0 Регистрация: 04.05.2017 Сообщений: 15
		1
	Найти количество элементов матрицы, удовлетворяющих заданному условию 04.05.2017, 15:09. Показов 1589. Ответов 1 Метки нет (Все метки) Найти количество элементов матрицы А, удовлетворяющих условию: -100<=A(I,J)<=100 и образовать из этих элементов массив В. (Паскаль) 0

	04.05.2017, 18:34

Опции темы

Найти количество элементов матрицы, удовлетворяющих заданному условию

Решение