Про Pascal - есть ответ « Вопросы и ответы

Без имени, 156 просмотров

Помогите пожалуйста с задачкой)
Дан массив 20, сформировать массив, приняв в качестве первых его элементов все отрицательные элементы массива К, сохранив порядок их следования и в качестве остальных элементов все неотрицательные элементы массива К, также сохранив порядок их следования.
Составьте пожалуйста программу.

Ответы:

Сам не проверял, но должнл работать

var
k, out: array[1..20] of integer;
a, b: array of integer;
i: integer;
begin
For i:= 1 to 20 do readln(k[i]);
For i:= 1 to 20 do
If k[i]<0 then begin
SetLength(a, length(a)+1);
s[length(a)-1]:= k[i];
end else begin
SetLength(b, length(b)+1);
s[length(b)-1]:= k[i];
end;
For i:= 0 to length(a)-1 do out[i+1]:= a[i];
For i:= 0 to length(b)-1 do out[i+length(a)]:= b[i];
For i:= 1 to 20 do writeln(out[i]);
readln;
end.

Dmity

та прога не будет работать:)

12 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.