ПОМОГИТЕ! В Паскале написать программу: автоматический массив…

Question

ПОМОГИТЕ! В Паскале написать программу: автоматический массив, состоящий из 10 элементов. Нужно убрать из него все отрицательные числа, заменив их 0. И приэтом все нули (если они уже есть или замененные отрицательные числа) переставить в конец,

Answer 1

46

stich21

24 августа 2022

program noname; uses crt; vara,b: array[1… 1000] of integer; i,j,k: integer; beginclrscr; for i: =1 to 10 dobeginwrite ('a[',i,']='); readln (a[i]); b[i]: =0; if a[i]<0 then a[i]: =0; end; j: =1; for i: =1 to 10 doif a[i]<>0 then begin b[j]: =a[i]; j: =j+1; end; for i: =1 to 10 dowrite (b[i],'); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: