Кто знает помогите написать на Турбо Паскале

01.01.2001

Кто знает помогите написать на Турбо Паскале
Ввести В память одномерный целочисленный массив Аn
n-количество элементов тоже ввести с клавиатуры.
1) Найти сумму отрицательных чисел массива.
2) Номера элементов массива больше на перед заданного числа А1

  • Ключевые слова в вопросе "Турбо Паскаль" и "количество элементов вводится с клавиатуры". Здесь был совет насчет SetLength(), только вот засада, в ТР никогда не было динамических массивов и при необходимости их надо организовывать самому. Ладно, вот код. Попробуйте объяснить его препу.

    {$R-} {отключаем проверку компилятором границ массива}

    type
    arrInt = array[1..1] of Integer; {массив из 1 элемента, как ни странно}
    arrIntPtr = ^arrInt;

    var
    a : arrIntPtr; {указатель на динамический массив}
    n, j : Integer;
    SumNeg, A1 : Integer;

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

    GetMem(a, n * SizeOf(Integer));

    WriteLn('Исходный массив');
    for j:=1 to n do begin
    a^[j] := Random(100) - 50;
    Write(a^[j]:4);
    end;
    WriteLn;

    {функционал}
    Write('Введите число А1: ');
    ReadLn(A1);
    WriteLn;

    SumNeg := 0;
    WriteLn('Номера элементов массива больше на перед заданного числа А1'); {орфография автора сохранена :)}
    for j:=1 to n do begin
    if a^[j] < 0 then Inc(SumNeg, a^[j]);
    if a^[j] > A1 then Write(j);
    end;
    WriteLn('Сумма отрицательных элементов: ', SumNeg);

    FreeMem(a, n * SizeOf(Integer));

    ReadLn;
    end.

    Примерно так...

  • Все очень просто. сначала циклом или рандомом заполняешь массив.
    Потом если меньше нуля то плюсуешь в переменную.
  • count:=0;
    for i:=1 to N do
    begin
    if X[ i]<0 then inc(count);
    if X[ i] > A1 then write (i:3);
    end;
  • 2. в цикле for i:=1 to n do if a [ i ] > a1 then writeln(i);
  • Ну элементарно же. Считываешь n с клавиатуры, выделяешь память на n элементов, затем заполняешь массив, после чего в цикле считаешь сумму отр. элеиентов.
    Как в пвсуале динамически выделять память не помню точно, но в делфи есть процедура SetLength(массив, кол. элементов) . А объявляется он как-то так: Arr: array of Integer;
    Всё остальное по-моему элементарно.
    На счет второго задания ничего сказать не могу, ибо я его не понял.
  • Учись сам решать.
    Вот раньше было время, когда инета не было у всех. Сами все решали, а сейчас, школота обленилась!
  • программ
    н -
    п-
    с-
    р-
    Бегин
    фор с = 1 то п
    врайте ( введите элемент: ) ;
    ридл (н [1])
    енд;
    write ( you passibl wery wery good
    lehrnen schule doutche schprechen,
    danke schoon)
    end
    end
    end

  • незнаю турбо паскаль (

Вас заинтересует