Question

Viết chương trình nhập vào mảng A gồm N số thực (N<=50) là điểm thi toán của các bạn trong lớp. Hiển thị mảng vừa nhập ra màn hình (mỗi số hiển thị trên một dòng)?Ai giúp em với ạ !!?

 

Answer 1

Program HOC24;

var i.n: integer;

a: array[1..250] of integer;

begin

for i:=1 to n do

begin

write('Nhap diem toan cua ban thu ',i,': '); readln(a[i]);

end;

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

readln

end.

Answer 2

uses crt;

var i,n:integer;     A: Array[1..50] of integer;begin        clrscr;        readln(n);readln(k);        for i:=1 to n do        begin                write('A[',i,'] = ');                readln(A[i]);        end;        for i:=1 to A[i] do        if (A[i] > k) then write(A[i]);        readlnend.

Answer 3

uses crt;

var a:array[1..50]of real;

i,n:integer;

begin

clrscr;

repeat

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

until (0<n) and (n<=50);

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do

  writeln(a[i]:4:2);

readln;

end.