Question

Viết chương trình hiện:

a) Nhập mảng bàn phím một mảng số thực có 20 phần tử

b) hiện mảng vừa nhập

Answer 1

program bt;

var i:byte;

a:array[1..20] of real;

procedure nhap;

begin

for i:=1 to 20 do read(a[i]);

end;

procedure xuli;

begin

for i:=1 to 20 do write(a[i],' ');

end;

begin

nhap;

xuli;

readln;

end.

Chúc bạn làm tốt!( có sai nói mik)

Answer 2

cách 1: dùng chương trình con

uses crt;
type mang=array[1..20]of integer;
var a:mang;
i,n:integer;
{------------ctc-nhap----------------}
procedure nhap(var b:mang);
begin
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(b[i]);
end;
end;
{------------ctc-xuat----------------}
procedure xuat(var c:mang);
begin
for i:=1 to n do
write(c[i]:4);
end;
{----------chuong-trinh-chinh----------}
begin
clrscr;
nhap(a);
xuat(a);
readln;
end.

cách 2: nhập bình thường

uses crt;
type mang=array[1..20]of integer;
var a:mang;
i,n:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(A[i]);
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.