Run Code
|
API
|
Code Wall
|
Users
|
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
Please
log in
to post a comment.
practica 7 ejercicio 11
AR sredine
Banking
Huong11a2@
quadratic equation
RAMON BARBOSA DE ARAUJO CONCEIÇÃO 600623124
practica 7 ejercicio B8
Урок 2. Функции: abs, round, trunc, int, frac
test28
bilete
Please log in to post a comment.