Nájde maximálne záporné číslo postupnosti

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategórie: Programy v C, C++

Program: Maximal.c

Nájde maximálne záporné číslo postupnosti.
// MAXIMAL.C                 Copyright (c) TrSek alias Zdeno Sekerak 
// Najdenie maximalneho zaporneho cisla postupnosti.
//
// Datum:28.05.96                               http://www.trsek.com 
 
#include <stdio.h>
 
void main()
{
  int n,
      a,
      i=1,
      k,
      max;
 
  printf ("\nZadaj pocet prvkov postupnosti: ");
  scanf  ("%d", &n);
 
  printf ("\nZadaj prvok %d: ", i);
  scanf  ("%d", &a);
 
  while ((i < n) && (a >= 0))
  {
    i++;
    printf ("Zadaj prvok %d: ", i);
    scanf  ("%d", &a);
  }
 
  if (i == n)
     printf ("\nNenasiel som ziadne zaporne cislo !");
  else
  {
    if (a < 0) max = a;
    k = i;
 
    for (i = k+1; i <= n; i++)
    {
       printf ("Zadaj prvok %d: ", i);
       scanf  ("%d", &a);
       if ((a < 0) && (a > max))
          max = a;
    }
 
    printf ("\nMaximalne zaporne cislo je %d.", max);
  }
}