Var z:array[1..1000] of longint;

n, i, min:longint;

Begin

Readln(n);

For i:=1 to n do begin writeln('s',i,'=');

Readln(z[i]);

min:= z[1];

End;

For i:=1 to n do begin if min>z[i] then min:=z[i];

End.;

Writeln('So nho nhat la ',min);

End.

Bạn thử kiểm tra lại nhé!

mơn bn nha

Var z:array[1..1000] of longint;

n, i, max:longint;

Begin

Readln(n);

For i:=1 to n do begin writeln('s',i,'=');

Readln(z[i]);

max:= z[1];

End;

For i:=1 to n do begin if max<z[i] then max:=z[i];

Writeln('So lon nhat la ',max);

End.

Bạn thử kiểm tra trên Pascal nhé.

uses crt;

var i,n,m:longint;

a:array[1..1000]of integer;

begin

write('nhap do dai cua day so:');readln(n);

for i:=1 to n do begin

write('nhap phan tu thu ',i,' cua mang:');readln(a[i]);

if i=1 then m:=a[1]

else if a[i]>m then m:=a[i];

end;

write('gia tri lon nhat trong day so la:',m);

readln

end.

Mảng một chiều là một dãy hữu hạn các phần tử có cùng dữ liệu khi khai báo và cá phần tử này có chung một tên nhưng khác nhau bởi các chỉ số phân biệt vị trí trong mảng. Các phần tử trong mảng có thể chứa cùng một giá trị nhưng khác nhau về chỉ số. Ví dụ: A[i] = 10, A[j] = 10 chúng giống nhau về giá trị là chứa một số nguyên dương bằng 10 nhưng khác nhau về chỉ số khi i khácj. Để mô tả mảng 1 chiều cần xác định kiểu của các phần tử và cách đánh số các phần tử của nó.

Var z:array[1..1000] of longint;

n, i, T:longint;

Begin

Readln(n);

For i:=1 to n do begin writeln('T',i,'=');

Readln(z[i]);

T:= T + z[i];

End;

Writeln('Tong la ',T);

End.

Bạn thử kiểm tra lại nhé!

Var z:array[1..1000] of longint;

n, i,A:longint;

Begin

Readln(n);

For i:=1 to n do begin writeln('s',i,'=');

Readln(z[i]);

End;

For i:=1 to n do begin if z[i] mod 2 = 0 then begin A:= z[i];

End;

Writeln('Cac so chan la ',A);

End;

End.

Bạn kiểm tra lại nhé.

Uses crt;

var a: array [1..100] of integer;

n, i, s: integer;

tb: real;

begin

clrscr;

write ('Nhap so luong phan tu: ');

readln (n);

for i:= 1 to n do readln (a[i]);

s:=s+a[i];

tb:=s/n;

writeln ('Gia tri trung binh cong cua mang la ',tb);

write ('Cac phan tu nho hon gia tri trung binh cong: ');

for i:= 1 to n do if a[i]<tb then write (a[i]:5); readln

end.

Uses crt;

var a: array [1..100] of integer;

n, i, s: integer;

tb: real;

begin

clrscr;

write ('Nhap so luong phan tu: ');

readln (n);

for i:= 1 to n do readln (a[i]);

s:=s+a[i];

tb:=s/n;

writeln ('Gia tri trung binh cong cua mang la ',tb);

write ('Cac phan tu nho hon gia tri trung binh cong: ');

for i:= 1 to n do if a[i]<tb then write (a[i]:5); readln

end.

Lê Thị Thu Hà Lỗi 1: Khi bạn tiến hành nhập thì nên ghi dòng nhắc người ta là nhập cái gì đó chứ ko vô là nhập như z, người ta sẽ ko hiểu nhập cái gì...
Lỗi 2: trước s:=s+a[i] bạn phải có vòng for i:=1 to n do nha để nó ms tính s của các giá trị a[i] từ 1 đến n được

program Tinh_tong;

uses crt;

var S,i:integer;

begin

S:=0;

for i:=1 to 50 do S:=S+i;

writeln('Tong tu 1 den 50 la:',S);

readln

end.

Cau 2:

program Tinh_tong_2;

uses crt;

var S,i,n: integer;

begin

writeln('Nhap n:');

readln(n);S:=0;

for i:=1 to n do (S:=S + 1/n*(n+1));

writeln('Tong la:',S);

readln

end.