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

Những câu hỏi liên quan
Bàn Chàn Khuân
Xem chi tiết
Bùi Thị Phương Nga
Xem chi tiết
Nguyên Đăng
Xem chi tiết
Bùi Huỳnh Anh Sơn
Xem chi tiết
Nguyến Ngọc Nguyên
Xem chi tiết
Minh Lệ
23 tháng 4 2021 lúc 12:53

Program HOC24;

var i,d: integer;

a: array[1..6] of real;

begin

for i:=1 to 6 do

begin

write('Nhap diem cua ban thu ',i,': '); readln(a[i]);

end;

write('Diem trung binh tren 6.5 la: '); 

for i:=1 to 6 do if a[i]>6.5 then write(a[i]:1:1,' ');

writeln;

d:=0;

for i:=1 to 6 do if a[i]<5 then d:=d+1;

write('Co ',d,' ban it hon 5 diem');

readln

end.

Nguyễn Lê Phước Thịnh
23 tháng 4 2021 lúc 20:51

uses crt;

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

i,dem:integer;

begin

clrscr;

for i:=1 to 6 do 

  begin

write('Nhap diem cua ban thu ',i,' la: '); readln(a[i]);

end;

for i:=1 to 6 do 

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

writeln;

dem:=0;

for i:=1 to 6 do 

 if a[i]<5 then inc(dem);

writeln(dem);

readln;

end.

Nguyễn Đức Hoàn
Xem chi tiết
Nguyễn Văn Tùng
5 tháng 5 2023 lúc 20:45

Đây là code Pascal để nhập và in điểm kiểm tra học kì môn tin cho N của từng học sinh:

program DiemKT;

var
N, i: integer;
diem: array1..100 of integer;

begin
write('Nhap so hoc sinh: ');
readln(N);

for i := 1 to N do
begin
write('Nhap diem kiem tra hoc ki cua hoc sinh thu ', i, ': ');
readln(diemi);
end;

writeln('Diem kiem tra hoc ki cua ', N, ' hoc sinh la:');

for i := 1 to N do
writeln('Hoc sinh thu ', i, ': ', diemi);

end.

15. Vi Thị Thu Kim
Xem chi tiết
Nguyễn Phạm Thanh Hằng
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 4 2021 lúc 19:39

uses crt;

var a,b,c,tb:array[1..100]of real;

i,n:integer;

begin

clrscr;

n:=5;

for i:=1 to n do 

  begin

   readln(a[i],b[i],c[i]);

end;

for i:=1 to n do 

  tb[i]:=(a[i]+b[i]+c[i])/3;

for i:=1 to n do 

  writeln('Diem trung binh cua ban thu ',i,' la: ',tb[i]:4:2);

readln;

end.

Hương Đinh
Xem chi tiết
Vương Hương Giang
2 tháng 3 2022 lúc 19:19

XEM HÌNH

imagerotate

Hương Đinh
Xem chi tiết
Đỗ Đức Duy
2 tháng 3 2022 lúc 19:05

image