Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
PC Vũ

viết chương trình pascal sử dụng biến mảng để nhập n số nguyên từ bàn phím in ra màn hình tổng các số đó ( N cũng được nhập từ bàn phím )

 

Buddy
10 tháng 5 2021 lúc 20:21

uses crt;

var n, i, j, dem: longint; {Bạn có thể thay longint thành integer nha}

A:array[1..1000] of longint;

begin

clrscr;

Write('Nhap N: '); readln(n);

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,': ');

readln(A[i]);

end;

Write('Cac so nguyen to co trong mang la: ');

for i:=1 to n do

begin

dem:=0;

for j:=2 to A[i]/2 do

if A[i] mod j=0 then dem:=dem+1;

if dem=0 then write(A[i],' ');

end;

end.

Nguyễn Lê Phước Thịnh
11 tháng 5 2021 lúc 11:06

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;

t:=0;

for i:=1 to n do 

t:=t+a[i];

writeln(t);

readln;

end.

Lê Thị Thu Phương
7 tháng 6 2021 lúc 21:23

uses crt;
var a:array[1..1000000] of longint;
      n,i,s:longint;
begin
      clrscr;
      write('n='); readln(n);
      for i:=1 to n do 
            begin
                  write('a[',i,']: '); readln(a[i]);
                  inc(s,a[i]);
            end;
      writeln('Tong: ',s);
      readln;
end.


Các câu hỏi tương tự
Minh Ngọc
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Lê Thùy Dương
Xem chi tiết
Phan Hồng Anh
Xem chi tiết
Yeu DUong nhat
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
ngô bá hiếu
Xem chi tiết