Question

Viết chương trình mà người ta nhập các số thực từ 1 đến 10

thứ 6 kiểm tra rồi mọi người giúp mình

mình cảm ơn nhiều

Answer 1

uses crt;

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

i:integer;

begin

clrscr;

for i:=1 to 10 do

begin

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

end;

readln;

end.