Những câu hỏi liên quan
Du Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
31 tháng 3 2022 lúc 23:34

uses crt;

var a:array[1..20]of real;

t,tb,ln,nn:real;

i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

for i:=1 to n do t:=t+a[i];

writeln(t:4:2);

writeln(t/n:4:2);

nn:=a[1];

ln:=a[1];

for i:=1 to n do 

begin

 if nn>a[i] then nn:=a[i];

if ln<a[i] then ln:=a[i];

end;

writeln(nn);

writeln(ln);

readln;

end.

Bình luận (0)
eeedddd
Xem chi tiết
Hoàng Hải Bình
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 2 2022 lúc 11:31

uses crt;

var st:array[1..10]of string;

a:array[1..10]of integer;

i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

 readln(st[i],a[i]);

for i:=1 to n do 

  writeln(st[i],' ',a[i]);

readln;

end.

Bình luận (0)
Đỗ vantinh
Xem chi tiết
Kiều Vũ Linh
9 tháng 5 2023 lúc 16:15

Em cho thêm điều kiện loại Khá của em là gì?

Bình luận (0)
Nguyễn Trường Giang
Xem chi tiết
Kim Kiều
Xem chi tiết
Nguyen Hung
3 tháng 5 2021 lúc 21:00

Uses crt;

Var i,n:integer;

      a:array[1..1000] of integer;

Begin

clrscr;

Write('Nhap so hoc sinh: ');readln(n);

Writeln('Nhap diem hoc ki mon tin cua ',n,' em hoc sinh:');

For i:=1 to n do

Begin

Write('Hoc sinh thu ',i,' : ');

readln(a[i]);

End;

Writeln('Diem kiem tra cua ',n,' em hoc sinh vua nhap la:');

For i:= 1 to n do writeln('Hoc sinh thu ',i,' : ',a[i]);

readln;

End.

Bình luận (0)
Hoàng Kim 8B
Xem chi tiết
Nguyễn Hoàng Minh
2 tháng 11 2021 lúc 8:37

#include <bits/stdc++.h>

using namespace std;

int n,k,a,b;

int main()

{

cin>>n>>k;

a=(n+k)/2;

b=(n-k)/2;

cout<<"So hoc sinh nam la: "<<a;

cout<<"\nSo hoc sinh nu la: "<<b;

Return 0;

}

Bình luận (0)
Anh Nguyễn
Xem chi tiết
Bùi Huỳnh Anh Sơn
Xem chi tiết