const fi='dulieu.txt';
fo='ketqua.txt';
var i,t:integer;
f1,f2:text;
a:array[1..9]of integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
t:=0;
for i:=1 to 9 do
begin
read(f1,a[i]);
t:=t+a[i];
end;
writeln(f2,t);
close(f1);
close(f2);
end.

s

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,ln;

int main()

{

freopen("quyengop.inp","r",stdin);

freopen("quyengop.out","w",stdout);

cin>>n;

ln=0;

for (i=1; i<=n; i++)

{

cin>>x;

ln=max(ln,x);
}

cout<<ln;

return 0;

}

Cho giá trị la: 'bc12'

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

i,n:integer;

begin

write('Nhap so luong so nguyen trong mang ');readln(n);

for i:=1 to n do

begin

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

end;

readln;

end.

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

i,n:integer;

begin

write('Nhap so luong so nguyen trong mang ');readln(n);

for i:=1 to n do

begin

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

end;

Var a:array[1..200] of integer;

i,dem,s:integer;

begin

For i:=1 to 200 do

begin

write('Nhap phan tu thu ',i,' ');readln(a[i]);

end;

For i:=1 to 200 do

begin

if a[i] mod 2 = 0 then

begin

dem:=dem + 1;

s:=s+a[i];

end;

end;

writeln('tong cac so chan la ',s);

write('Co ',dem,' so chan');

readln;

end.

KTC_HK1;

S: real;

Writeln('Nhap a='); 

- Program KTCHK1;

- Program KTC_HK1;

- Uses crt;

- Var a, S: Integer;

- Writeln('Nhap a = ');

- Writeln('S = ' , S);

Thỏa điều kiện gì?

Chọn C

Chọn D