Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
task 2
Program n_2; var i, k, n, max : integer; A : array [1..10] of integer; begin Writeln('Введите количество элементов массива: ') ; Readln(N); Write(N); writeln; For i := 1 to N do begin read (A[i]) ; Write(A[i]:3); end; Max := A[1]; k:=1; For i := 2 to N do if A[i]>Max then begin Max := A[i]; k:=1; end else if A[i]=Max then k:=k+1; writeln; Writeln('Количество максимумов ',k); end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
1
test02
подсчёт символов и цифр пока не точка
Pokazivaci, ulancane liste
sorting_direct_choise_optimized
Стандартные функции в паскале round, trunc, int, frac
Kupovina Auta
Huong11a2@
Ariketa 06
Huong11a2@
Please log in to post a comment.