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
11.7.2013 naloga2
Unicorn
arreglo suma1
Huong11a2@
test29
пи методом монте карло на единичной окружности
Урок 2 задача не из учебника
sum_example1
VINICIUS ELIAS SILVEIRA 600625519
Matrix,colums with all equal elements