Viết thuật toán và chương trình nhập từ bàn phím dãy A gồm n phần tử a1, a2, a3,..an có kiểu số nguyên. Tìm và in ra màn hình các phần tử có giá trị lẻ, các phần tử có giá trị chẵn trong dãy A

Viêy thuật toán và chương trình nhập từ bàn phím dãy A gồm n phần tử a1, a2, a3, ...an có kiểu số nguyên. Tính và in ra màn hình tổng S các phần tử của dãy A

Viêy thuật toán và chương trình nhập từ bàn phím dãy A gồm n phần tử a1, a2, a3, ...an có kiểu số thực. Tìm phần tử lớn nhất, nhỏ nhất của dãy A

Chiyeen câu lệnh for i:=1 to n do if A[i]>0 then write(A[i],' '); thành câu lệnh while..do?

Program bai; Var n,i: integer; A: Array[1..50]of integer; Begin Writa('nhap n='); Readln(n); For i:=1 to n do begin wrote ('A[' ,i, ']='); readln(A[i]); end; For i:=1 to n do if A[i]>0 then write(a[i], ' '); Readln; End. Mảng A trong chương trình trên có số phần tử tối đa là bao nhiêu

Program bai; Var n,i: integer; A: Array[1..50]of integer; Begin Writa('nhap n='); Readln(n); For i:=1 to n do begin wrote ('A[' ,i, ']='); readln(A[i]); end; For i:=1 to n do if A[i]>0 then write(a[i], ' '); Readln; End. Biến n,i trong chương trình trên dùng dể làm gì?

Viết khai báo biến mảng hocsinh gồm 40 phần tử mỗi phần tử có kiểu xâu kí tự

Viêt khai báo biến M gồm 100 phần tử mỗi phần tử có kiểu số thực

Kết quả của câu lệnh điều kiện a[i]>0 then write (A[i],' '); là gì nếu giá trị phân tử A[i]=10?

Cho biết chức năng của lệnh for i:=1 to n do begin write('A[',i,']=') readln(A[i]); end;