Даны два массива X(n) и Y(m). В каждом массиве определить количество положительных элементов до первого отрицательного

@nikch1k · Регистрация: 23.03.2023

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

Даны два массива X(n) и Y(m). В каждом массиве определить количество поло-жительных элементов до первого отрицательного (с помощью функции).
Доп. условия: а) использовать ДИНАМИЧЕСКИЕ массивы;
б) написать функцию для создания и заполнения массива значениями (ввод с клавиатуры);
в) написать процедуру для вывода массива.
Написал основную часть программы, затруднение с выполнением основной части задания и выводом.

Pascal

program semlab2;
Type mas = array[1..2] of int64;
     mas1 =^mas;
function createArray(x:byte):mas1;
 var i:byte;
   A:mas1;
 Begin
   getmem(A,x *sizeof(integer));
   for i:= 1 to x do begin
       write('[', i, '] элементы матрицы: ');
       readln(A^[i]);
   end;
createArray:=A;
end;
procedure outputArray(A:mas1;x:byte);
  var i:byte;
begin
  for i:=1 to x do begin
      write(A^[i]:5);
      write;
  end;
end;
function osnova(x:byte):mas1;
var i:byte;
  k:int64;
  A:mas1;
  Begin
       while A^[i] > 0 do k:=k+1;
  end;
var n,m,j:byte;
  A:mas1;
begin
   write('n=  ');
   readln(n);
   A:= createArray(n);
   outputArray(A,n);
   A:=rabota(n);
   outputArray(A,n);
   readln()
end.

Опции темы