Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
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
mod/div
Первая задание
Homework 1
1
test15
TanTai11A2@
Huong11a2@
The largest one , matrix
fff
города