Alex_1324

Untitled

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