матрица

[ччч1]

Дана вещественная квадратная матрица. Написать следующие подпрограммы:
1. Найти номер первой из строк, содержащих хотя бы один четный положительный элемент.
2. Сформировать результирующий одномерный массив, элементами которого являются значения сумм тех строк, которые начинаются с k идущих подряд положительных элементов.

[Sciv]

Дана вещественная квадратная матрица

хотя бы один четный

Понятие четности применимо только к целым числам. Как уже неоднократно на форуме разъяснялось. Уверены, что задание верно?

[ччч1]

да,верно задание

[Serge_Bliznykov]

Сообщение от ччч1

да,верно задание

я бы, на вашем месте, первое задание отказался выполнять, ссылаясь не очевидную ошибку в его математческом обосновании.
Ну это всё равно, как решать задачу вида: "дана площадь квадрата, найти его радиус", или "дан квадрат, найти угол, имеющий отрицательную величину"

впрочем, если Вас не смущает то, что вещественные числа НЕ БЫВАЮТ чётные или не чётные,
тогда можете замутить что-нибудь такое:

const n = 5;
var A : array[1..n, 1..n] of real;
  i,j : integer;
  isFound : boolean;
begin
   // тут заполняете массив числами...

 {а вот и поиск}
 isFound := false;
for i:=1 to n do 
begin
  for j:=1 to n do
     if  (A[i,j]>0) and (frac(A[i,j])=0) and (trunc(A[i,j]) mod 2 = 0) then begin
        WriteLn('В строке ',i,' есть положительный и вроде как чётный элемент!');
        isFound := true;
        break;
     end;
  if isFound then Break;
end;

end.

[ччч1]

почему я запускаю программу и он завершает сразу..массив я заполнила случайными числами

[ччч1]

program ex;
uses crt;
const n = 5;
var A : array[1..n, 1..n] of real;
  i,j : integer;
  isFound : boolean;
begin
  ClrScr;
Randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20)-10;
    Write(a[i,j]:7:2);
   end;
  Writeln;
  end;
Writeln;
 isFound := false;
for i:=1 to n do
begin
  for j:=1 to n do
     if  (A[i,j]>0) and (frac(A[i,j])=0) and (trunc(A[i,j]) mod 2 = 0) then begin
        WriteLn('В строке ',i,' есть положительный и вроде как чётный элемент!');
        isFound := true;
        break;
     end;
  if isFound then Break;
end;
end.

вот так работает..правильно?

[Serge_Bliznykov]

допишет в конце

  if not isFound then WriteLn('Нет таких строчек!');
  Readln;
end.