K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

21 tháng 6 2020

program hello;

uses crt;

Var n,i,j,k: integer;

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

begin;

a[1]:=k;

Readln(n);

For i:=1 to n do

Begin;

Writeln('nhap a[',i,'] '); Readln(a[i]);

End;

For i:=1 to n-1 do

For j:=i+1 to n do

If a[i]<a[j] then k:=a[j];

Writeln('gia tri lon nhat la', k);

end.

21 tháng 4 2020

Đr bạn

20 tháng 1 2017

       các số tự nhiên chẵn < 10000 là:

0; 2; 4; 6;...; 9998

    Số số hạng của dãy là:

  ( 9998- 0) : 2 +1 = 5000 ( số hạng)

  Tổng dãy trên là:

  ( 9998 +0) x 5000 : 2 =  24995000