K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

Nhập:

For i:=1 to n do readln(a[i]);

Xuất:

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

19 tháng 4 2023

program XuatSoChan;
uses crt;
const
  Max_N = 20;
type
  MangSoNguyen = array [1..Max_N] of integer;
var
  A: MangSoNguyen;
  i, n: integer;
begin
  clrscr;
  write('Nhap so luong phan tu cua mang: ');
  readln(n);
  writeln('Nhap cac phan tu vao mang:');
  for i := 1 to n do
  begin
    write('A[', i, ']: ');
    readln(A[i]);
  end;
  writeln('Cac so chan trong mang la:');
  for i := 1 to n do
  begin
    if A[i] mod 2 = 0 then
      writeln(A[i]);
  end;
  readln;
end.

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

b) a[5]:=8;

25 tháng 5 2021

Cho mảng a như sau:

            Chỉ số:    5            6            7           8             9

Lệnh Readln(a[5]); dùng để nhập giá trị cho phần tử nào trong mảng a?

A. Phần tử thứ 5 trong mảng a (phần tử đầu tiên trong mảng a là phần tử thứ nhất)

B. Phần tử có chỉ số phần tử là 5 trong mảng a

C. Phần tử đầu tiên trong mảng a

D. Tất cả đều đúng