Вычислить количество элементов массива , для которых выполняется неравенство

@Edik2303 · Регистрация: 22.09.2014

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

Вычислить количество элементов массива , для которых выполняется неравенство 1< a_kn< 6

@bormant · 21.10.2014, 21:53

n в данном случае количество столбцов и нужно вычислить количество подходящих элементов в последнем столбце? Если так, то

Pascal

const m=5; n=5;
var
  a: array [1..m,1..n] of Integer;
  i, j, c: Integer;
begin
  Randomize;
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(10); Write(a[i,j]:2);
    end; WriteLn;
  end;
  {c:=0;}
  for i:=1 to n do if (a[i,n]>1) and (a[i,n]<6) then Inc(c);
  WriteLn('Количество: ',c);
end.

@Edik2303 0 / 0 / 0 Регистрация: 22.09.2014 Сообщений: 11
		1
	Вычислить количество элементов массива , для которых выполняется неравенство 21.10.2014, 21:45. Показов 1373. Ответов 1 Метки нет (Все метки) Вычислить количество элементов массива , для которых выполняется неравенство 1< a_kn< 6 0

	21.10.2014, 21:53

Опции темы

Вычислить количество элементов массива , для которых выполняется неравенство

Решение