Дан массив. Напечатать все неотрицательные элементы

Дан массив. Напечатать все неотрицательные элементы

Задать свой вопрос
1 ответ
Const nx=30;
var C:Array[1..nx] of integer;
 i,min,q,n:integer;
begin write('введите кол-во частей массива');
Read(n);
for i:=1 to n do begin
C[i]:= random(100)-50;
if  c[i]gt; 0 then begin write(C[i]:4); end;end;
writeln;
for i:=1 to n do write(C[i]:4);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт