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
4º Questão VS - 1º Sem. 2017
Урок 2 задача не из учебника1
6
nomer5
practica 3 ejercicio B4
Different numbers in array
Pokazivac-dinamicka alokacija memorije
Tugas
BubbleSort (standaard)
nomer7