Tin học Viết chương trình

[Ngô Xuân Mỹ]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Bài 1: Viết chương trình nhập vào 1 dãy số gồm n số nguyên, tính tổng các phần tử của dãy số.
Bài 2: Viết chương trình nhập vào 1 dãy số gồm n số nguyên, in các giá trị dãy số ra màn hình

 

[Sơn Nguyên 05]

Bài 1: Viết chương trình nhập vào 1 dãy số gồm n số nguyên, tính tổng các phần tử của dãy số.
Bài 2: Viết chương trình nhập vào 1 dãy số gồm n số nguyên, in các giá trị dãy số ra màn hình

Bài 1: Code
S:=0;
For i:=1 to n do begin
Write(i,5); S:=S+i;
Writeln(S); readln;

 

[hdiemht]

Bài 1: Code
S:=0;
For i:=1 to n do begin
Write(i,5); S:=S+i;
Writeln(S); readln;

Mình nghĩ là a[ i ] chứ không phải [tex]i[/tex]

 

[ka1412]

B1:

uses crt;
var n,i,a:integer;
s:longint;
begin
    clrscr;
    write('Nhap n:');readln(n);
    for i:=1 to n do
    begin
        write('Nhap so:');readln(a);
        s := s+a;
    end;
    write('Tong:',s);
readln
end.

 

[ka1412]

B2:

uses crt;
var a:array[1..100] of integer;
n,i:integer;
begin
    clrscr;
    write('Nhap n:');readln(n);
    for i:=1 to n do
    begin
        write('Nhap so:');readln(a[i]);
    end;
    writeln('Day so:');
    for i := 1 to n do write(a[i]:4);
readln
end.