Сформировать одномерный массив из количества элементов каждой строки матрицы, больших заданного числа

@Seprente · Регистрация: 30.03.2017

Дан двумерный массив размером 4*6 и заполненный целыми числами с клавиатуры. сформировать одномерный массив каждый элемент которого равен количеству элементов соответствующей строки, больше данного числа.

@Hitoku · 30.03.2017, 17:34

Pascal

uses crt;
const n=4; m=6;
var
  a:array [1..n,1..m] of integer;
  b:array [1..n] of integer;
  k,i,j:byte; c:integer;
begin
  for i:=1 to n do
    for j:=1 to m do read(a[i,j]);
  clrscr; writeln('A:');
  for i:=1 to n do begin
    for j:=1 to m do write(a[i,j]:3,' ');
    writeln;
  end;
  write('с = '); readln(c);
  write('B: ');
  for i:=1 to n do begin
    k:=0;
    for j:=1 to m do
      if a[i,j]>c then k:=k+1;
    b[i]:=k; write(b[i],' ');
  end;
end.

@Seprente 0 / 0 / 0 Регистрация: 30.03.2017 Сообщений: 6
		1
	Сформировать одномерный массив из количества элементов каждой строки матрицы, больших заданного числа 30.03.2017, 16:26. Показов 1166. Ответов 1 Метки нет (Все метки) Дан двумерный массив размером 4*6 и заполненный целыми числами с клавиатуры. сформировать одномерный массив каждый элемент которого равен количеству элементов соответствующей строки, больше данного числа. 0

Опции темы

Сформировать одномерный массив из количества элементов каждой строки матрицы, больших заданного числа

Решение