Câu 1 cho dãy số nguyên gồm n phân tử a1, a2,-a12 với a1, a2 -..an và n nhập từ bàn phím Viết chương trình tìm phần tử lớn nhất Câu 2 xây dựng

Câu 1 cho dãy số nguyên gồm n phân tử a1, a2,….a12 với a1, a2 ……an và n nhập từ bàn phím
Viết chương trình tìm phần tử lớn nhất
Câu 2 xây dựng chương trình con để tính độ dài của 1 vecto có tọa độ (x,y)
Giúp e vs ạ e đang cần gấp bây h
C ơn nhìu

0 bình luận về “Câu 1 cho dãy số nguyên gồm n phân tử a1, a2,-a12 với a1, a2 -..an và n nhập từ bàn phím Viết chương trình tìm phần tử lớn nhất Câu 2 xây dựng”

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

          i, n: byte;

          max: integer;

     

    begin

      write (‘nhap n: ‘);  readln (n);

      for i:=1 to n do

         begin

             write(‘nhap phan tu thu ‘,i,’: ‘); 

             readln (a[i]);

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

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

          end;

       writeln (‘phan tu lon nhat la: ‘, max);

       readln

    end.

     

     

    Bình luận
  2. câu 1:

    uses crt;

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

    i,n,max: integer;

    begin

    clrscr;

    write (‘nhap n: ‘);  readln (n);

    for i:=1 to n do

    begin

    write (‘nhap phan tu thu ‘,i,’: ‘);  readln (a[i]);

    end;

    max:=a[1];

    for i:=2 to n do

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

    writeln (‘phan tu lon nhat la: ‘,max);

    readln;

    end.

    Bình luận

Viết một bình luận