sai đề rồi thưa bác

var i,n,min,max:integer;

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

begin

Write('n=');read(n);

for i:=1 to n do

Read(a[i]);

i:=1;

max:=0;

min:=a[i];

while i<n do 

Begin

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

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

i:=i+1;

end;

writeln('Gia tri LN la:',max);

writeln('Gia tri NN la:',min);

readln;

end.

program tongchan;

uses crt;

var i,n,s:integer;

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

Begin

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

for i:=1 to n do

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

s:=0;

for i:=1 to n do 

if a[i] mod 2 = 0 then s:=s+a[i];

if s=0 then write('Trong mang ko co so chan') else write('Tong cac so chan la:,s');

readln;

end.

khoảng 165 kg gì đó

nếu là lực là khoảng 1654,987678653826499482538266 (N)

mềnh ko đọc kĩ đề nên sai thông cảm

ko vì khi làm lạnh cả vong và qua cau thì vòng và quả cầu cùng co lại nên ko thể gỡ ra dk

để font hơi to nhỉ

Hello everyone. On today's global social networks, there are many different types of web, but the one I like best is hoc24. There are many reasons for me to like it but I can only point a few as follows: on this website there are lots of explanations of all subjects, useful knowledge and teachers and The persistent, enthusiastic contributors always give the best and most sensible answers so I love this website very much.

Bài của mình hơi ngắn nhưng đó là hay nhất rồi ạ