Пошаговый ввод данных

[Макс Мел]

Пошаговый ввод данных. Сочетание циклов и разветвлений.
Помогите! Очень прошу за девушку!

[Poma][a]

1) А девушка без рук? Сама написать или програмку или просьбу не может?
2) За девушек обычно платят, а не просят
ну ладно... если я правильно понял задания, то так :
Намбер 1

const
        SIZE = 10000;

type
        MyArr = array [1..SIZE] of Integer;

procedure Read_Array (var a : MyArr);

var
        n, i : Integer;

begin
        Write ('Введите размерность массива ');
        ReadLn (n);

        for i := 1 to n do begin
                Write (i, ' элемент массива = ');
                ReadLn (a[i]);
        end;
end;

procedure Work_with_Array (const a : MyArr; var r : LongInt);

var
        i, j : Integer;

begin
        i := 1;
        while a[i] > 0 do
                Inc (i);

        r := 0;
        for j := 1 to i-1 do
                r := r + a[j];
end;

var
        a : MyArr;
        r : LongInt;

begin
        Read_Array (a);

        Work_with_Array (a, r);

        WriteLn (r);
end.

Намбер 2 (не проверял, хотя вроде должна работать)

const
        SIZE = 50;

type
        MyArr = array [1..SIZE] of Integer;

procedure Read_Array (var a : MyArr);

var
        i : Integer;

begin
        for i := 1 to 50 do begin
                Write (i, ' элемент массива = ');
                ReadLn (a[i]);
        end;
end;

procedure Work_with_Array (const a : MyArr; var r : LongInt);

var
        i : Integer;

begin
        r := 0;
        for i := 1 to 50 do
                if Abs (a[i]) = i * i then
                        r := r + a[i];

end;

var
        a : MyArr;
        r : LongInt;

begin
        Read_Array (a);

        Work_with_Array (a, r);

        WriteLn (r);
end.

Намбер 3

const
        SIZE = 1000;

type
        MyArr = array [1..SIZE] of Real;

procedure Read_Array (var a : MyArr; var n : Integer);

var
        i : Integer;

begin
        Write ('Введите размерность массива ');
        ReadLn (n);

        for i := 1 to n do begin
                Write (i, ' элемент массива = ');
                ReadLn (a[i]);
        end;
end;

procedure Work_with_Array (const a : MyArr; var r : Real; const n : Integer);

var
        i, max, min : Integer;

begin
        max := 1;
        min := 2;

        i := 1;
        while i <= n do begin
                if a[i] > a[max] then
                        max := i;
                Inc (i, 2);
        end;

        i := 2;
        while i <= n do begin
                if a[i] < a[min] then
                        min := i;
                Inc (i, 2);
        end;

        r := a[min] + a[max];

end;

var
        a : MyArr;
        r : Real;
        n : Integer;

begin
        Read_Array (a, n);

        Work_with_Array (a, r, n);

        WriteLn (r : 0 : 3);
end.

и №4 не знаю) 8 класс все-таки))

[BDA]

Думал, никто не ответит
Ну что ж. Тогда и мои варианты
Буду давать комментарии по номерам заданий.
1) Poma][a, не нужно использовать массив, где он не нужен. Да и n не дано (пишу все это для вашего развития, а не чтобы унизить или оскорбить)

uses
  crt;

var
  s, a: integer;

begin
  a := 0;
  read(s);
  repeat
    s := s + a;
    read(a);
  until a < 0;
  writeln(s);
  readln;
end.

2)

uses
  crt;

var
  i, b, s: integer;

begin
  s := 0;
  for i := 1 to 50 do
  begin
    read(b);
    if abs(b) < i * i then
      s := s + b;
  end;
  writeln(s);
  readln;
end.

3)

uses
  crt;

var
  n, i: integer;
  min, max, a: real;

function minimum(a, b: real): real;
begin
  if a > b then minimum := b else minimum := a;
end;

function maximum(a, b: real): real;
begin
  if a > b then maximum := a else maximum := b;
end;

begin
  readln(n);
  if n < 2 then
    writeln('input greater N')
  else
  begin
    read(max, min);
    for i := 3 to n do
    begin
      read(a);
      if i mod 2 = 1 then
        max := maximum(max, a)
      else
        min := minimum(min, a);
    end;
    {writeln('min= ', min:0:3);
    writeln('max= ', max:0:3);}
    writeln(min + max:0:3);
  end;
  readln;
end.

4)

uses
  crt;

const
  pi = 3.14;

var
  x, a, b: real;
  n, i: integer;

function y(x: real): real;
begin
  y := exp(-x) * sin(2 * x);
end;

begin
  a := -pi / 2;
  b := 2 * pi;
  n := 50;
  for i := 0 to n do
  begin
    x := a + (b - a) * i / n;
    writeln(x:0:3, ' ', y(x):0:3);
  end;
  readln;
end.

[Poma][a]

Poma][a, не нужно использовать массив, где он не нужен. Да и n не дано (пишу все это для вашего развития, а не чтобы унизить или оскорбить)

Была такая идея, но под влиянием мысли, что препод может придраться что в задании чётко написано a1, a2 .. an, а решаем без массива.

И, конечно, об обиде и оскорблениях не может быть и речи, вся критика принимается к сведению, и используется. Так что СПАСИБО!)