Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
help me to fix this stupid thing, so tired about it
//fpc 3.0.0 program Nhietdo_Nngay; const Max = 366; type Kmang1:= array[1..Max] of real; var Nhietdo: Kmang1; dem,i,N: byte; Tong Trung_binh:real; begin N:= 50; Tong:= 0 for i:= 1 to N do begin Nhietdo := 27; Tong := Tong + Nhietdo; end; dem :=0; Trung_binh := Tong/N; for i:= 1 to N dop if Nhietdo>Trung_binh then dem := dem+1; writeln('Nhiet do trung binh',N,' ngay: ',Trung_binh:8:3); writeln('So ngay nhiet do ao hon trung binh: ',dem); readln; end.
run
|
edit
|
history
|
help
0
practica 3 ejercicio 10
test 1 avant que theo huart etaigne mon ordi
JESSICA GOMES DE SOUZA FERREIRA 600621634
test26
простые от 1 до 100
Excercise3
Zadanie 2
Greetings
IPR2
nomer9