Задание:
ПОМОГИТЕ! В Паскале написать программу: автоматический массив, состоящий из 10 элементов. Нужно убрать из него все отрицательные числа, заменив их 0. И приэтом все нули (если они уже есть или замененные отрицательные числа) переставить в конец,
Решение:
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.
Знаете другой ответ?