Question

Мне нужна помощь: В Фрее паскаль  Рассмотрим массив T [1..n] целых чисел, где n <= 20. Напишите программу, используя процедуру, которая будет отображать положительные элементы этого массива.Мне нужно под этот модель :этот програм считает сумму. type tab=array[1..10] of integer; var a:tab; i,n:integer; s:real; procedure suma(var x:tab; n:integer; var sum:real); var i:integer; begin sum:=0; for i:=1 to n do sum:=sum+x[i]; end; begin{main} write('n='); readln(n); write('dati elementele tabloului:'); for i:=1 to n do readln(a[i]); suma(a,n,s); write('s=',s:7:2); end. Спасибо заранее.

Answer 1

Ну как-то так, в фрипаскале работает

Answer 2

Для решения задачи отображения положительных элементов массива вам не понадобится процедура suma. Вам нужно просто добавить процедуру, которая будет отображать положительные элементы. Вот модифицированный код:

pascalCopy code
type
  tab = array[1..20] of integer;

var
  a: tab;
  i, n: integer;

procedure displayPositiveElements(var x: tab; n: integer);
var
  i: integer;
begin
  writeln('Положительные элементы массива:');
  for i := 1 to n do
  begin
    if x[i] > 0 then
      writeln(x[i]);
  end;
end;

begin
  {main}
  write('n=');
  readln(n);

  write('Введите элементы массива:');
  for i := 1 to n do
    readln(a[i]);

  displayPositiveElements(a, n);
end.

Обратите внимание, что я изменил размер массива tab на 20, чтобы учесть условие задачи n <= 20. Процедура displayPositiveElements проходит по массиву x и выводит все положительные элементы. Это позволит вам отобразить положительные элементы массива T [1..n] целых чисел.