Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
a2
Program aa1; Type mas = array [1..10] of integer; var X:mas; i,k: integer; Begin K:=0; {присваивание начального значения переменной счетчику отрицательных элементов} For I:=1 to 10 do Read(X[i]); {ввод элементов массива} For I:=1 to 10 do If X[i]<0 then k:=k+1;{проверка элементов на отрицательность} Writeln( 'otricatelnyx elementov ' ,k); End.
run
|
edit
|
history
|
help
0
Llenar un arreglo (con for)
10
Helpme
nombre_completo
test27
Calcular digitos de un numero (hasta 4 digitos)
LUIZ ANTONIO RANGEL MUNIZ 60061122
conversion Metrica
basketball_player_training
(p,q,r)