Forum Komputerowe E-comp :: jak napisać następujący program z pascala?

MARCINWENCEL · Wysłany: 2007-12-30, 00:52

Prosze o pomoc w wykonaniu nastepujacego zadania z pascala :

SZukanie minimum

1. Nalezy stworzyc tablice o 10 losowych elementach i wyswietlic ja na ekranie
2. Nalezy wyswietlic zawartosc tablicy
3. Nalezy znalezc najmiejsza liczbe i ja wyswietlic

z gory dzieki

michaelxp91 · Wysłany: 2007-12-30, 01:45

Ah ta dzisiejsza mlodziez...

Kod

program minimum;

uses crt;

const N = 10;

var t: array[1..N] of integer;

var tmp: integer;

var i, j: byte;

begin

clrscr;

        for i := 1 to N do

        t[i] := random(10000);

        write('Losowe elementy tablicy: ');

        for i := 1 to N do

        write(t[i],', ');

        writeln(' ');

        for j := 1 to N - 1 do

                for i := 1 to N - 1 do

                    if t[i] > t[i+1] then

                          begin

                          tmp := t[i];

                          t[i] := t[i+1];

                          t[i+1] := tmp;

                          end;

			write('Najmniejszy element tablicy to: ', t[1]);

			repeat until keypressed;

end.

Jesli Ci bedzie odpowiadal to prosze, czestuj sie.