Cho lệnh khai báo mảng như sau :
Var MANG:Array[1.50]of integer;
hãy viết đoạn phương trình in ra tất cả các phần tử Chính Phương trong mảng trên ?
Ai biết giải thì giải giúp mik đi
Cho lệnh khai báo mảng như sau :
Var MANG:Array[1.50]of integer;
hãy viết đoạn phương trình in ra tất cả các phần tử Chính Phương trong mảng trên ?
Ai biết giải thì giải giúp mik đi
uses crt;
var mang: array[1..50] of integer;
n, i, s: integer;
begin
clrscr;
write(‘Hay nhap do dai cua mang: ‘);
readln(n);
for i := 1 to n do
begin
write(‘Hay nhap phan tu mang[‘, i, ‘]: ‘);
readln(mang[i]);
end;
for i := 1 to n do
begin
writeln(‘Phan tu mang[‘, i, ‘] la ‘, mang[i]);
s := mang[i] * mang[i];
writeln(‘So chinh phuong cua ‘, mang[i], ‘ la ‘, s);
end;
readln;
end.