Определить количество положительных элементов четвертого столбца матрицы

@Ksuuu · Регистрация: 12.04.2015

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

Начала делать, но не знаю как продолжить. Нужно определить количество положительных элементов четвертого столбца и распечатать массив в виде матрицы.

Pascal

PROGRAM M4;
VAR k,i:byte;
x:array [1..5,1..5] of real;
begin
writeln ('massive x');
for k,i:=1 to 5 do
begin
x[k,i]=(cos(k)+sin(i))/(sqrt(k)+sqr(i));
write (x[k,i]:8:4);
if x[k,i]>0 then

Добавлено через 1 час 33 минуты
Помогите!

@ermolay · 29.05.2015, 07:56

Pascal

program M4;
 
var
  k, i, count: byte;
  x: array [1..5, 1..5] of real;
 
begin
  writeln('massive x');
  for k := 1 to 5 do
  begin
    for i := 1 to 5 do
    begin
      x[k, i] := (cos(k) + sin(i)) / (sqrt(k) + sqr(i));
      write(x[k, i]:8:4);
    end;
    writeln;
  end;
  count := 0;
  for k := 1 to 5 do
    if x[k, 4] > 0 then inc(count);
  writeln('Positive in 4-th column: ', count);
  readln;
end.

	29.05.2015, 07:56