Ai đó cho em hỏi về bài tập này.
Bài tập pascal cực khó , giải bằng ngôn ngữ khác cũng được, chủ yếu lấy cái thuật toán.
Cho mảng gồm 20 phần tử, chọn đại một phần tử ở giữa rồi tính tổng từ đó đến mảng phần tử a[1], rồi tính từ chỗ chọn đại đó đến phần tử mảng cuối cùng. Dữ liệu mảng có thể random hoặc nhập thủ công. Em làm thế này, không đúng, ai đó cho em ý kiến.
program hello;
uses crt;
var i, tong, tong1: longint;
a: array[1..20] of integer;
begin
clrscr;
tong:=0;
tong1:=0;
{ this is a comment
for i:=1 to 20 do
begin
write('Nhap phan tu so: ',i, ' cua mang a');
readln(a[i]);
end;
}
for i:=random(a[i]) to 20 do a[i]:=random(20);
i:=0;
for i:=random(a[i]) downto a[1] do
begin
tong:=tong+a[i];
end;
for i:=1 to a[20] do
begin
tong1:=tong+a[i];
end;
'
begin
writeln('Tong tu phan tu ', tong);
writeln('Tong1 tu phan tu ', tong1);
end;'
readln;
end.
83% thành viên diễn đàn không hỏi bài tập, còn bạn thì sao?