uses crt;
var st:array[1..100]of string;
a,b,c:array[1..100]of real;
i,n:integer;
max:real;
begin
clrscr;
readln(n);
for i:=1 to n do readln(st[i],a[i],b[i],c[i]);
max=(a[1]+b[1]+c[1])/3;
for i:=1 to n do
if (max<(a[i]+b[i]+c[i])/3) then max:=(a[i]+b[i]+c[i])/3;
writeln(max:4:2);
readln;
end.
Mọi người giúp mình bài này với, xin cảm ơn rất nhiều ạ!
mọi người ơi giúp mình với ạ, mai mik thi rùi, cảm ơn mn nhiều
Cho 1 mảng a gồm 100 phần tử em hãy viết chương trình đếm số lượng các phần tử chia hết cho giá trị x nhập vào tử bàn phím, in ra màn hình các phần tử đó Mình đang cần gấp mọi người giúp mình với ạ🤦
viết chương trình nhập vào 1 mảng số nguyên gồm 10 phần tử xuất ra màn hình phần tử số 3 . Lm ơn giúp mik vs ạ mik cần gấp xin cảm ơn😭
Làm giúp mình bài này với ạ,mình đang cần gấp
Em hãy viết chương trình Pascal để tính tổng của dãy số An(A1,A2,A3, ...,An) với n được nhập từ bàn phím.Em hãy viết chương trình để in ra tổng các số chẵn của dãy An
Viết chương trình tính tổng các số chẵn trong dãy số nguyên A1, A2, ..., An. Biết rằng n, A1, A2, ..., An là các số nguyên nhập từ bàn phím (n>0)?
Các bạn giúp mình nha ,mình cần gấp lắm
Viết chương trình nhập N phần tử có giá trị nguyên
a)in dãy số vừa nhập
b) tính tổng số lẻ trong dãy số
c) sắp xếp lại dãy số tăng dần
giúp mil vs ạ! mik đang cần gấp, cảm ơn!
Cho mình hỏi là : Cách nhập và in ra màn hình các phần tử của biến mảng .
Cảm ơn nhiều ạ !
viết chương trình nhập dãy n số nguyên dương từ bàn phím và đưa ra màn hình tích của dãy số nguyên đó(sử dụng biến mảng)
giúp mình với ạ, mình cảm ơn
