Sử dụng biến mảng viết chương trình nhập từ bàn phím STT, Họ tên, Điểm trung bình của n học sinh trong lớp (5<n<10). In thông tin được nhập ra màn hình.
uses crt;
var st:array[1..10]of string;
a:array[1..10]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(st[i],a[i]);
for i:=1 to n do
writeln(st[i],' ',a[i]);
readln;
end.
Viết chương trình nhập vào từ bàn phím danh sách tên (không gồm họ và đệm) học sinh cách nhau bởi dấu cách và lưu vào trong một mảng. Giả thiết rằng tên, không gồm khoảng trắng. Sau đó hệ thống kê xem có bao nhiêu tên khác nhau và mỗi tên xuất liện bao nhiêu lần trong danh sách.
ds=list(map(str,input().split()))
c={}
for i in ds:
if i in c:
c[i] =c[i]+1
else:
c[i] = 1
print('số tên khác nhau là',len(c))
print('mỗi tên có số lần xuất hiện là:')
for i in c:
print(i, c[i])
Viết chương trình nhập vào mảng một chiều C gồm có n số nguyên. Ghi mảng C vừa nhập vào tệp có tên là MANG3.TXT. Đọc dữ liệu từ tệp MANG3.TXT, in ra màn hình các số lẻ trong mảng.
Program HOC24;
var i,n: integer;
c: array[1..1000] of integer;
f: text;
begin
assign(f,'MANG3.TXT');
reset(f);
readln(f,n);
for i:=1 to n do read(f,c[i]);
close(f);
for i:=1 to n do if c[i] mod 2=1 then write(c[i],' ');
readln
end.
Viết chương trình nhập vào mảng một chiều C gồm có n số nguyên. Ghi mảng C vừa nhập vào tệp có tên là MANG3.TXT. Đọc dữ liệu từ tệp MANG3.TXT, in ra màn hình các số lẻ trong mảng.
Viết chương trình nhập vào họ tên của 2 người vào 2 biến xâu , in ra màn hình xâu lớn hơn
uses crt;
var st1,st2:string;
begin
clrscr;
readln(st1,st2);
if st1>st2 then writeln('Xau st1 lon hon')
else if st2>st1 then writeln('Xau st2 lon hon')
else writeln('Hai xau bang nhau');
readln;
end.
giúp mk!!
Câu 1. Lệnh read(tên biến); /readln(tên biến); dùng để:
A. in ra màn hình B. gán giá trị cho biến
C. nhập dữ liệu vào từ bàn phím D. gán giá trị cho hằng
Câu 2. Trong Pascal, lệnh write/writeln dùng để:
A. nhập dữ liệu vào từ bàn phím B. gán giá trị cho hằng
C. gán giá trị cho biến D. in, thông báo ra màn hình
viết chương trình nhập vào 1 mảng gồm n phần từ bàn phím . tính tổng các phần tử trong mảng .in kết quả ra màn hình.
-khai báo biến biến mảng .
-nhập n số phần tử mảng ,
-nhập mảng ,
-in mảng.
-tính tổng ,
-in kết quả ra màn hình
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,t;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
t=0;
for (i=1; i<=n; i++) t+=a[i];
cout<<t;
return 0;
}
Viết chương trình nhập vào 2 xâu kí tự. Xâu thứ nhất là họ đệm, xâu thứ 2 là tên của 1 người.Đưa ra màn hình tên đầy đủ của người đó.
program ct;
uses crt;
var
s1,s2:string;
begin
clrscr;
write('nhap ho dem: ');
readln(s1);
write('nhap ten: ');
readln(s2);
writeln('ten day du la: ',s1,' ',s2);
readln;
end.
Nhập vào mảng 1 chiều không quá 200 phần tử là số nguyêna, In ngược mảng vừa nhập sao cho biến nọ cách biến kia bởi dấu cáchb, Tính tổng các phần tử chẵn có chỉ số lẻ và in ra màn hìnhc, In ra màn hình các số chia hết cho 2 và 5
uses crt;
var a:array[1..200]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Mang nguoc la: ');
for i:=n downto 1 do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if (a[i] mod 2=0) and (i mod 2=1) then t:=t+a[i];
writeln('Tong cac so chan co chi so le la: ',t);
writeln('Cac so chia het cho 2 va 5 la: ');
for i:=1 to n do
if (a[i] mod 2=0) and (a[i] mod 5=0) then write(a[i]:4);
readln;
end.
