1/ kiểm tra dùm mình xem thử bài này viết đúng ko với, mình nhập vào máy ko được:<<<
program bai_1;
uses crt;
var i,n,m:integer;
S:real;
begin
clrscr;
S:=0;
i:=0;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('nhap m='); readln(m);
S:=S=m;
end; (chỗ này máy kêu mình bỏ dấu phẩy chấm đi)
S:=S/n; (chỗ này máy báo lỗi nhưng mình ko biết sửa)
writeln('trung binh cong cua n la'; S;8:2);
readln
end.
2/ viết chương trình cho đề bài
input: n, số hạng
output: in ra số lớn nhất
mình có viết sẵn thuật toán rồi mà ko biết đúng ko
b1: nhập n, i<-0
b2: i:=i+1;
nhập m
b3: nếu max<m thì max<-m
b4: nếu i<n ->b2
b5: in max
b6: xem, end
Loga
Sinh Học lớp 12
