-3

Надо найти второй положительный элемент массива. Вот мои наработки:

program summa;
var
  a: array [1..100] of integer;
  i, sum, n: integer;
begin
  Randomize;
  Write('Введите размер массива: ');
  Readln(n);
  Writeln('Массив:');
  for i := 1 to n do
  begin
    a[i] := Random(20) - random(17);
    Write(a[i]:4);
  end;
  Writeln;
  sum:=0;
  for i := 1 to n do
///решение
end.

введите сюда описание изображения

4
  • Создай еще один счетчик до цикла, например j и пока j!=2 ты ищешь это число, когда j==2 запоминаешь число в другой переменной и выводишь его, если по завершению основного цикла j!=2, сообщаешь что положительных чисел либо вообще нет, либо только одно
    – Hazatdum
    Commented 22 июн. 2018 в 7:30
  • блин, не понимаю, можешь код написать?
    – adam_k
    Commented 22 июн. 2018 в 7:32
  • @test123 , очень смешно. этот язык я не использовал уже два-три года
    – adam_k
    Commented 22 июн. 2018 в 7:47
  • @adam_k, причём тут язык? Да и алгоритм вам уже подсказали... Хоть 10 лет не пишите "на этом языке", не зная синтаксиса ни одного из языков, можете уверено написать на псевдокоде свой вариант решения, и на него с удовольствием ответят здесь. То что вы показали, буквально кричит что вы не хотите разбираться в вопросе, и просите решить всё за вас.
    – test123
    Commented 22 июн. 2018 в 10:51

1 ответ 1

0
    program HelloWorld;
var
  a: array [1..100] of integer;
  i, sum, n, k: integer;
begin
  Randomize;
  k:=0;sum:=0;
  Write('Введите размер массива: ');
  Readln(n);
  Writeln('Массив:');
  for i := 1 to n do
  begin
    a[i] := Random(0) - random(20);
    if a[i] > 0 then begin inc(k);
    if k = 2 then sum := a[i]; end;
    Write(a[i]:4);
  end;
  writeln;
  case k of
      0: Writeln('Нет положительных элементов');
      1: Writeln('Нет второго положительного элемента');
      else Writeln('Второй положительный элемент : ',sum);
  end;
end.
5
  • При n больше 100 будет плохо
    – Kromster
    Commented 22 июн. 2018 в 7:53
  • Почему? Пускай наложит условия на n или же с ними Commented 22 июн. 2018 в 8:41
  • Если звезды сложатся так, что в массиве окажется только один положительный элемент (или вовсе ни одного), то получится тоже не очень хорошо. :)
    – Yaant
    Commented 22 июн. 2018 в 10:18
  • Покажет ему 0, а 0 - не положительный, не отрицательниый. ) Commented 22 июн. 2018 в 10:25
  • А в разве паскале неинициализированные явно переменные всегда инициализируются нулем? Я вот такого не помню, и подозреваю, что это может зависит от компилятора и от его настроек оптимизации.
    – Yaant
    Commented 22 июн. 2018 в 13:38

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.