1 ) Tìm giá trị Min trong dãy cho trước 2) Cho dãy N nguyên dương . Tính tổng S= 1+2+3+...+N Nhào zô lấy điểm đi các bạn , ai làm đầu tui 5 sao vs hay nhức luôn :]]

2)

input:nhập N nguyên dương

output:tổng S

b1:Nhập N nguyên dương
b2:S←0,i←1

b3:Nếu i>Nthì đưa ra giá trị S rồi kết thúc

b4:S←S+i
b5:i←i+1 rồi quay lại b3

1)

uses crt;
var i,n,min:longint; a:array[1..250]of longint;
begin
clrscr;
   write('Nhap N: ');readln(n);
   min:=high(longint);
   for i:=1 to n do
      begin
         write('Nhap phan tu thu ',i,': ');readln(a[i]);
         if a[i]<min then min:=a[i];
      end;
   writeln(min);
readln
end.

2)

uses crt;
var n:longint;
begin
clrscr;
   write('Nhap N: ');readln(n);
   writeln(n*(n+1) div 2);
readln
end.