trình bày cách sử dụng biến mảng trong Pascal ! tin 8 nhé
Những câu hỏi liên quan
viết chương trình pascal sử dụng biến mảng được nhập từ bàn phím các phần tử của dãy số rồi trình bày dãy số đó theo hàng . Độ dài của dãy số nhập từ bàn phím
GIÚP MÌNH MAI MÌNH KTRA HỌC KÌ RỒI PLSS!!
uses crt;
var n,i:integer;
a:array[1..100] of integer;
begin
clrscr;
write(‘nhap so phan tu cua day:’);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);readln(a[i]);
end;
writeln(‘day so da nhap:’);
for i:=1 to n do write(a[i]:2);
readln;
end.
Đúng 3
Bình luận (0)
Viết chương trình sử dụng biến mảng, nhập vào 1 dãy số nguyên từ bàn phím, in ra màn hình dãy số đó
Tin học 8
Giúp mk nhé!!!
program Iza_dang_cap;
uses crt;
var n,i: integer;
A:array[1..100] of integer;
begin
clrscr;
writeln('nhap cac phan tu cua day');
for i:=1 to n do write(A[i]);
writeln('cac phan tu cua day so la: ' )
for i:=1 to n do write(A[i],' ');
readln
end.
p/s : bn nhập chương trình zô pascal xem cóa sai j ko nhá~~
Đúng 0
Bình luận (0)
Viết chương trình pascal sử dụng biến mảng để nhập và tính tổng 10 số tự nhiên liên tiếp
uses crt;
var a:array[1..10]of integer;
n,i,t:integer;
begin
clrscr;
n:=10;
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình pascal sử dụng biến mảng để nhập vào một dãy số và in ra tổng của dãy số đó
uses crt;
var a:array[1..100]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;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day so la: ',t);
readln;
end.
Đúng 2
Bình luận (0)
viết chương trình pascal tính tổng các số từ 1 đến n, n nhập từ bàn phím, sử dụng biến mảng
Uses crt;
Var
S,i,n:Integer;
a:array[1..100] of integer;
BEGIN
Write( ‘ Nhap so n:’ );
Readln( n );
For i:=1 to n do
begin
a[i]:=i;
s:=s+a[i]
end;
Writeln( ‘Tong = ’, S);
Readln;
END.
sử dụng free pascal viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy N số tự nhiên và viết ra màn hình? độ dài của dãy cũng được nhập từ bàn phím
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình pascal sử dụng biến mảng để nhập n số nguyên từ bàn phím in ra màn hình tổng các số đó ( N cũng được nhập từ bàn phím )
uses crt;
var n, i, j, dem: longint; {Bạn có thể thay longint thành integer nha}
A:array[1..1000] of longint;
begin
clrscr;
Write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');
readln(A[i]);
end;
Write('Cac so nguyen to co trong mang la: ');
for i:=1 to n do
begin
dem:=0;
for j:=2 to A[i]/2 do
if A[i] mod j=0 then dem:=dem+1;
if dem=0 then write(A[i],' ');
end;
end.
Đúng 1
Bình luận (0)
uses crt;
var a:array[1..100]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;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
uses crt;
var a:array[1..1000000] of longint;
n,i,s:longint;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']: '); readln(a[i]);
inc(s,a[i]);
end;
writeln('Tong: ',s);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình Pascal sử dụng biến mảng để tính giá trị trung bình của n số nguyên nhập từ bàn phím.chiều dài của dãy cũng được nhập từ bàn phím.
Viết chương trình nhập điểm kiểm tra học kì môn tin cho học sinh và in ra màn hình điểm tin cao nhất ( sử dụng biến mảng ).
program sodiemcaonhat; var i,max,n:integer; a:array [1..10000] of integer; begin write('nhap so phan muon nhap='); read(n); for i:=1 to n do begin write('diem thu',i,'='); read(a[i]); end; max:=a[1]; for i:=1 to n do begin if max < a[i] then max:=a[i]; end; write('so diem cao nhat la=',max); readln end.
Đúng 0
Bình luận (0)
program sodiemcaonhat;
var i,max,n:integer;
a:array [1..10000] of integer;
begin
write('nhap so phan muon nhap='); read(n);
for i:=1 to n do begin
write('diem thu',i,'='); read(a[i]);
end;
max:=a[1];
for i:=1 to n do begin
if max < a[i] then max:=a[i];
end;
write('so diem cao nhat la=',max);
readln
end.
Đúng 1
Bình luận (0)