Ôn tập cuối năm

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
phung nguyen

Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số.

a, In ra màn hình các số vừa nhập ( độ dài của dãy cũng được nhập từ bàn phím)

b, Tính tổng các phần tử của dãy số

c, Tính giá trị nhỏ nhất của dãy số

d, Tìm giá trị lớn nhất của dãy số

Kiều Vũ Linh
9 tháng 5 2023 lúc 9:36

Var a:array:[1..1000] of real;

i,n,max,min,s:real;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

max:=a[1];

min:=a[1];

For i:=2 to n do

Begin

If a[i] > max then max:=a[i];

If a[i] < min then min:=a[i];

End;

Write('Cac so vua nhap la ');

for i:=1 to n do write(a[i]:10:2):

Writeln;

Writeln('Tong la ',s:10:2);

Writeln('So nho nhat la ',min:10:2);

Write('So lon nhat la ',max:10:2);

Readln

End.

Phùng Công Anh
27 tháng 5 2023 lúc 12:02

var
  Mang: array[1..100] of Integer;
  N, i, Tong, Min, Max: Integer;

begin
  // Yêu cầu nhập độ dài của dãy số từ bàn phím
  Write('Nhap do dai cua day so: ');
  ReadLn(N);

  // Yêu cầu nhập các phần tử của dãy từ bàn phím
  for i := 1 to N do
  begin
    Write('Nhap phan tu thu ', i, ': ');
    ReadLn(Mang[i]);
  end;

  // In ra màn hình các số vừa nhập
  Write('Cac so vua nhap: ');
  for i := 1 to N do
  begin
    Write(Mang[i], ' ');
  end;
  WriteLn;

  // Tính tổng các phần tử của dãy số
  Tong := 0;
  for i := 1 to N do
  begin
    Tong := Tong + Mang[i];
  end;
  WriteLn('Tong cac phan tu cua day so la: ', Tong);

  // Tìm giá trị nhỏ nhất của dãy số
  Min := Mang[1];
  for i := 2 to N do
  begin
    if Mang[i] < Min then
      Min := Mang[i];
  end;
  WriteLn('Gia tri nho nhat cua day so la: ', Min);

  // Tìm giá trị lớn nhất của dãy số
  Max := Mang[1];
  for i := 2 to N do
  begin
    if Mang[i] > Max then
      Max := Mang[i];
  end;
  WriteLn('Gia tri lon nhat cua day so la: ', Max);

  ReadLn;
end.


Các câu hỏi tương tự
Kien
Xem chi tiết
Phúc
Xem chi tiết
Gia Hưng Lớp 7/2
Xem chi tiết
Nguyễn Thế Kiên
Xem chi tiết
Cao Hồng Phúc
Xem chi tiết
Quỳnh Diễm
Xem chi tiết
Ngọc ý
Xem chi tiết
Hoàng Thị Thùy Dung
Xem chi tiết
Ly Khánh
Xem chi tiết