задача

[Кристюленция]

Найти сумму целых положительных нечётных чисел от 1 до n(значение n вводится с клавиатуры)

[Valio]

Спасибо, нашёл.

[Npwas]

Сообщение от Кристюленция

Найти сумму целых положительных нечётных чисел от 1 до n(значение n вводится с клавиатуры)

Вот так:

Program Prog1;

uses crt;

Type
  mas=array of integer;

Var
  A:mas;
  N:Integer;

  {Создаем массив чисел и выводим его на экран}
  PROCEDURE Make_And_Show_Mass;
    Var
      i:integer;
    BEGIN
       Randomize;
       Write('Vedite chislo elementov: ');
       Readln(N);
       SetLength(A,N);
       For i:=0 to N-1 Do //Генерируем массив
           A[i]:=random(50)-25;
       Writeln;
       For i:=0 to N-1 Do  //Выводи массив на экран
           Write(A[i],'   ');
       Writeln;   
    END;

  {Рассчитываем сумму}
  PROCEDURE RaschSum;
    Var
       i,Sum:integer;
    BEGIN
       Sum:=0;
       For i:=0 to N-1 Do 
          IF (A[i]>=0) and (A[i] mod 2<>0) Then  //Проверяем подхит число или нет
              Sum:=Sum+A[i];
       Writeln('Summa poluchennaja po usloviju: ', Sum);
    END;  

BEGIN
  Make_And_Show_Mass;
  RaschSum;
  Readln
END.

[Valio]

uses crt;

Type
  mas=array of integer;

?... дальше можно было не смотреть.

Прочитай задание внимательнее.... Решение пишется максимум в 5 строк и укладывается в один цикл.

[Npwas]

Сообщение от Valio

Прочитай задание внимательнее.... Решение пишется максимум в 5 строк и укладывается в один цикл.

Можно и компактнее. Зато человеку будет хоть наглядней ка что.
И мое решение соответствует условию задачи:
1) n вводится с клавиатуры;
2) находит сумму нечетных положительных чисел.

[Npwas]

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

[Npwas]

Вместо этого:

 Type
   mas=array of Integer

и этого

IF (A[i]>=0) and (A[i] mod 2<>0) Then  //Проверяем подхит число или нет

Это:

Type
   mas=array of Real;

и это

IF (A[i]>=0) and (A[i] mod 2<>0) and (Frac(A[i])=0)Then  //Проверяем подхит число или нет

[Valio]

Я про то, что в Паскале нет динамических массивов...

И какбы в задаче не говорится о массиве. Вот что нужно было:

For i := 1 To n Do Begin ..проверяем чётность и суммируем.. End;

Всё.

Твой код сабжевую задачу может както и решает, но имелось ввиду явно не такое решение.

[Npwas]

Сообщение от Valio

Я про то, что в Паскале нет динамических массивов...

И какбы в задаче не говорится о массиве. Вот что нужно было:

Массив тоже пригодится человеку. Я думал что в Паскале как и в Delphi есть динамические массивы.

В Паскале есть вообще что-нибудь динамическое?!

[Valio]

Ну впринципе если надо через массив, то решение тоже годится.
Есть конечно - списки, стеки, деревья и пр.