Viết chương trình nhập k195520103135. In ra màn hình điểm quy đổi thành chữ tương ứng
Viết chương trình nhập k195520103135. In ra màn hình điểm quy đổi thành chữ tương ứng
By Autumn
By Autumn
Viết chương trình nhập k195520103135. In ra màn hình điểm quy đổi thành chữ tương ứng
program C;
uses crt;
var i,n,d,t:integer;
A:array[1..1000] of integer;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
writeln(‘NHAP GIA TRI TUNG PHAN TU CUA MANG’);
d:=0; t:=0;
for i:=1 to n do
begin
write(‘A[‘,i,’]= ‘);
readln(A[i]);
if A[i] mod 3=0 then
begin
d:=d+1;
t:=t+A[i];
end;
end;
write(‘Co ‘,d,’ phan tu cua mang la boi cua 3 va tong cua chung la: ‘,t);
readln
end.
uses k195520103135;
var a: array[k195520103135] of longint;
i,n,ta,td,d: longint;
begin
clrscr;
write (‘nhap so phan tu cua mang: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap a[‘,i,’]: ‘); readln (a[i]);
if a[i]<0 then ta:=ta+a[i];
if a[i]>0 then td:=td+a[i];
if a[i]=0 then d:=d+1;
end;k195520103135
write (‘cac so chan la: ‘);
for i:=1 to n do if a[i] mod 2=0 then write(i,’ ‘);
write (‘cac so le la: ‘);
for i:=1 to n do if a[i] mod 2<>0 then write(i,’ ‘);
writeln (‘tong cac so am: ‘,ta);
writeln (‘tong cac so duong: ‘,td);
writeln (‘co ‘,d,’ so 0 trong day so’);
readln;
end.