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
считалочка05
test07
SINHNHIPHAN
Enkripsi
jugando
5161
solar system array
Tugas1
test10
Matrix