Facebook

Untitled safest cryptocurrency exchange

From Chocolate Meerkat, 5 Years ago, written in Plain Text.
URL https://pastebin.pl/view/156b5879
Embed
Download Paste or View Raw
Hits: 218
  1. program tablice;
  2. const
  3.   N = 99;
  4. var
  5.   tab1: array[0..N] of integer;
  6.   i: integer;
  7.   suma, min, max, idMin, idMax: integer;
  8. begin
  9.   randomize;
  10.   min:= 0;
  11.   suma:= 0;
  12.   for i:=0 to N do
  13.     begin
  14.     tab1[i] := random(1000);
  15.     suma:=suma+tab1[i];
  16.     if i=0 then
  17.       begin
  18.         min:=tab1[0]; idMin:=0;
  19.         max:=tab1[0]; idMax:=0;
  20.       end
  21.     else
  22.       begin
  23.         if tab1[i]>max then
  24.           begin
  25.             max:=tab1[i]; idMax:=i;
  26.           end;
  27.       end;
  28.     if i=0 then
  29.       begin
  30.         min:=tab1[0]; idMin:=0;
  31.         max:=tab1[0]; idMax:=0;
  32.       end
  33.     else
  34.       begin
  35.         if tab1[i]<min then
  36.           begin
  37.             min:=tab1[i]; idMin:=i;
  38.           end;
  39.       end;
  40.     end;
  41.   writeln('...........');
  42.   for i:=0 to N do
  43.   writeln(tab1[i]);
  44.   writeln('...........');
  45.   writeln('Max: ',max,', idMax: ',idMax);
  46.   writeln('Min: ',min,', idMin: ',idMin);
  47.   writeln('Suma: ', suma);
  48.   readln();
  49. end.

Reply to "Untitled"