Hãy khai báo một biến mảng A gồm 100 phần tử là số nguyên?
Khai báo một biến SoHS trong lớp học gồm 40 phần tử .Khai báo một biến mảng A,B gồm có 50 phần tử , các phần tử có kiểu dữ liệu số nguyên.Khai báo một biến có tên chiều cao trong lớp gồm 20 phần tử
Câu 1: Viết cú pháp lệnh khai báo biến mảng? Khai báo 2 biến x,y kiểu mảng có 50 phần tử nguyên. Câu 2: Viết chương trình nhập vào một dãy (mảng) gồm n số và in ra các số chia hết cho 3 đã nhập. Em hãy thực hiện các yêu cầu sau (không viết chương trình): - Em hãy xác định input, output của bài toán - Em hãy khai báo các biến sử dụng trong bài trên Câu 3: Viết chương trình nhập vào n, tính tổng S=1+2+..+n (bằng lệnh while) Giúp mình với đang cần gấp :
thực hiện khai báo một mảng A gồm 50 phân tử là số học , khia thác mảng dãy số gồm 100 phần là số nguyên
helpp me!!
Khai báo mảng gồm 50 phần tử số học:
var A: array[1..50] of integer;
Khai thác là sao bạn nêu rõ hơn đề nha? Khai tháng dãy số gồm 100 phần là số nguyên là sao nhỉ?
Khai báo 1 biến có tên là SoHS trong lớp học gồm 40 phần tử.
Khai báo mảng A, B gồm có 50 phần từ, các phần tử có kiểu dữ liệu số nguyên.
Khai báo một biến có tên là chieucao trong lớp học gồm 20 phần tử.
viết chương trình thực hiện yêu cầu sau khai báo biến mảng tên là B gồm tối đa 25 phần tử, các phần tử có kiểu là số nguyên,sau đó nhập dữ liệu từ bàn phím vào mảng ?
uses crt;
var b:array[1..25]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('B[',i,']='); readln(b[i]);
end;
readln;
end.
a) khai báo một mảng các phần tử gồm 100 số nguyên
b) nhập các phần tử của mảng từ bàn phím
c) hiển thị phần tử bế nhất trong mảng
d) sắp xếp mảng theo thứ tự tăng dần
uses crt;
var a:array[1..100]of integer;
i,n,min,tam,j:integer;
begin
clrscr;
n:=100;
for i:=1 to 100 do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('Gia tri nho nhat la: ',min);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('Day so tang dan la: ');
for i:=1 to n do
write(a[i]:4);
readln;
end.
Khai báo và nhập giá trị cho mảng A gồm 15 phần tử. Đếm và in ra số phần tử là số nguyên tố của mảng A, số phần tử là số hoàn hảo của mảng A. Yêu cầu viết hàm kiểm tra số nguyên tố và hàm kiểm tra số hoàn hảo.
C++
include <iostream>
Để khai báo một mảng số thực có tên là Diem tối đa 100 phần tử, ta khai báo:
A. Var Diem : array [1..100] of integer;
B. Var Diem : array [1..100] of byte;
C. Var Diem = array [1..100] of real;
D. Var Diem : array [1..100] of real;
Câu 1. Cho một dãy số gồm n số nguyên (cả âm và dương) với n<=100. Hãy khai báo biến mảng trên?
Câu 2. Viết chương trình nhập từ bàn phím một dãy gồm 10 số. Đưa ra màn hình số nhập thứ 5.
Câu 3. Viết chương trình nhập vào một mảng A (tối đa 15 giá trị) là các số nguyên (Ai<=100)
a) In mảng đã nhập (Mỗi giá trị cách nhau 1 dấu cách)
b) Tính tổng các phần tử chia hết cho 3
c) In ra màn hình các số chẵn ở vị trí lẻ trong dãy
huhu giúp mình với TT
Câu 1:
var a:array[1..100]of integer;
Câu 2:
uses crt;
var a:array[1..10]of integer;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 10 do
write(a[i]:4);
readln;
end.
Câu 3:
uses crt;
var a:array[1..15]of integer;
i,n,t:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=15);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]<=100;
end;
writeln('Mang da nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if a[i] mod 3=0 then t:=t+a[i];
writeln('Tong cac phan tu chia het cho 3 la: ',t);
writeln('Cac so chan o vi tri le trong day la: ');
for i:=1 to n do
if (a[i] mod 2=0) and (i mod 2=1) then write(a[i]:4);
readln;
end.