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.

uses crt;

var a:array[1..100]of integer;

i,n:integer;

begin

clrscr;

readln(n);

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

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

writeln;

writeln('Phan tu thu hai la: ',a[2]);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

t=0;

for (i=1; i<=n; i++) t+=a[i];

cout<<t;

return 0;

}

7 tháng 5 2023

program NhapMang;

var

      mang: array of integer;

      n, i: integer;

begin

      write('Nhap so phan tu cua mang: ');

      readln(n);

      setlength(mang, n);

      writeln('Nhap cac phan tu cua mang:');

      for i := 0 to n-1 do

      begin

            readln(mang[i]);

      end;

      writeln('Mang vua nhap la:');

      for i := 0 to n-1 do

      begin

      write(mang[i], ' ');

      end;

      readln;

end.

7 tháng 5 2023

program NhapMang;
const
  MAXSIZE = 100; 
var
  a: array[1..MAXSIZE] of integer; 
  n, i: integer; 
begin
  write('Nhap so luong phan tu cua mang: ');
  readln(n); 
  for i := 1 to n do
  begin
    write('a[', i, '] = ');
    readln(a[i]);
  end;
  writeln('Mang vua nhap la:');
  for i := 1 to n do
    write(a[i], ' ');
end.

29 tháng 4 2023

Var a:array[1..20] of integer;

i,n,d:integer;

Begin

For i:=1 to 20 do

Begin

Write('Nhap phan tu thu ',i);readln(a[i]);

if a[i] = 3 then d:=d+1;

End;

Write('Co ',d,' chu so 3');

Readln

End.

uses crt;

var a:array[1..100]of integer;

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do 

  write(a[i]:4);

writeln;

writeln('Gia tri dau tien la: ',a[1]);

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('Tong cac phan tu la: ',t);

readln;

end.

Câu 1: 

uses crt;

var a:array[1..100]of integer;

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

 begin

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

end;

for i:=1 to n do 

  if a[i]<0 then write(a[i]:4);

readln;

end.

Câu 2: 

uses crt;

var a:array[1..100]of integer;

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

 begin

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

end;

for i:=1 to n do 

  if a[i]>0 then write(a[i]:4);

readln;

end.

3 tháng 5 2018

Mảng một chiều là một dãy hữu hạn các phần tử có cùng dữ liệu khi khai báo và cá phần tử này có chung một tên nhưng khác nhau bởi các chỉ số phân biệt vị trí trong mảng. Các phần tử trong mảng có thể chứa cùng một giá trị nhưng khác nhau về chỉ số. Ví dụ: A[i] = 10, A[j] = 10 chúng giống nhau về giá trị là chứa một số nguyên dương bằng 10 nhưng khác nhau về chỉ số khi i khácj. Để mô tả mảng 1 chiều cần xác định kiểu của các phần tử và cách đánh số các phần tử của nó.