Stef2016

Untitled

Apr 14th, 2025
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.22 KB | None | 0 0
  1. var
  2.   a : array [1..100] of longint;
  3.   k,n,m,sum,i ,max,min,nom : longint;
  4. begin
  5.   min:=999;
  6.   k:=0;
  7.     for i:=1 to 5 do
  8.       readln(a[i]);
  9.       if min>a[i] then
  10.         min:=a[i];
  11.         k:=i;
  12.   writeln(k);
  13. end.
Advertisement
Add Comment
Please, Sign In to add comment