tham khảo

program bt;

uses crt;

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

i,n,tong,tich:integer;

begin

clrscr;

write('Do dai cua day la:'); readln(n);

for i:=1 to n do

begin

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

end;

tong:=0; tich:=1;

for i:=1 to n do

begin

tong:=tong + a[i];

tich:=tich*a[i];

end;

write('tong cac so tu nhien nhap tu ban phim:',tong);

writeln;

write('tich cac so tu nhien nhap tu ban phim:',tich);

readln

end.

Tham khảo:

program bai1;

var S:string ;
j:integer;
n,k:byte;
i:char;
begin
k:=0;
write('nhap xau S');
read (S);
for i:= 'A' to 'Z' do
begin
n:=0;
for j:= 1 to length(S) do
if s[j]=i then
n:=n+1;
if n<> 0 then
k:=k+1;
end;
write ('so ki tu chu cai tieng anh in hoa khac nhau trong xau S=',k);
readln

end.

progam bai1;

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

i,n,dem1,dem2 : integer ;

begin

write('n='); readln(n);

writeln('Nhap gia tri cua cac phan tu');

for i:= 1 to n do

begin

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

end;

dem1:=0; dem2:=0;

for i:= 1 to n do

begin

if a[i]>0 then dem1:=dem1+1;

if a[i]>0 then dem1:=dem2+1;

end;

write('Cac so nguyen am trong day la:',dem1);

writeln;

write('Cac so nguyen am trong day la:',dem2);

readln;

end.

program b1;
uses crt;
var i,n: integer; a:array[1..100] of integer; s:real;
begin
clrscr;
write('Nhap vao so tu nhien n:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
s:=0;
for i:=1 to n do s:=s+a[i];  s:=s/n;
write('Trung binh cong cac so=',s:2:2);
readln;
end.

Tham khảo!

uses crt;
var b,c:real; a:array[1..100] of integer; s:real;
begin
clrscr;
write('Nhap vao diem hoc ki 1:');readln(b);
write('Nhap vao diem hoc ki 2:');readln(c);
s:=((b+c)*2)/3;
write('Diem ca nam=',s:2:2);
readln;
end.

Tham khảo típ!

uses crt;
var b,c:real; a:array[1..100] of integer; s:real;
begin
clrscr;
write('Nhap vao diem hoc ki 1:');readln(b);
write('Nhap vao diem hoc ki 2:');readln(c);
s:=((b+c)*2)/3;
write('Diem ca nam=',s:2:2);
readln;
end.

Tham khảo! Làm hơi ngắn

#include <bits/stdc++.h>

using namespace std;

long long a[20],n,i,dem;

int main()

{

for (i=1; i<=20; i++) cin>>a[i];

dem=0;

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

if (a[i]%2!=0) dem++;

cout<<dem;

return 0;

}

giúp mik với mai thi mik thi rồi🙏🙏

program b1;
uses crt;
var i: integer; a:array[1..100] of integer; s:longint;
begin
clrscr;
for i:=1 to 10 do
begin
write('a[',i,']='); readln(a[i]);
end;
writeln('cac phan tu chan la:');
s:=0;
for i:=1 to 10 do if a[i] mod 2=0 then writeln(a[i],' ');
write('Tong cac phan tu le la:');
for i:=1 to 10 do if a[i] mod 2<>0 then s:=s+a[i]; write(s);
readln;
end.

Tham khảo!

Cú pháp: while <điều kiện> do <câu lệnh>;

TRong đó: điều kiện thường là phép so sánh

câu lệnh có thể là đơn hoặc ghép

while do là các từ khóa