19.12.2016, 11:32 | #1 (permalink) |
Новичок
Регистрация: 19.12.2016
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Напишите программу, пожалуйста
Напишите программу плиз!!! |
19.12.2016, 11:32 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Наверняка в похожих темах есть информативные ответы Напишите программу в Паскале Напишите программу Напишите, пожалуйста, программу на QBasic |
19.12.2016, 14:22 | #2 (permalink) |
Member
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,309
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 13090
|
Код:
uses Crt; var a:array of integer; n,t,k,i:integer; begin ClrScr; Write('N = '); Readln(n); Writeln; SetLength(a,n); Randomize; for i:=0 to n-1 do begin a[i]:=Random(20)-10; Write(a[i]:4); end; Writeln; t:=-1; for i:=0 to n-1 do if a[i]<0 then begin t:=i; Break; end; k:=-1; for i:=0 to n-1 do if a[i]=0 then begin k:=i; Break; end; if (k<>-1) then if (t<>-1) then begin i:=a[t]; a[t]:=a[k]; a[k]:=i; for i:=0 to n-1 do Write(a[i]:4); end; a:=nil; ReadKey; end. |
19.12.2016, 14:33 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Женя, как будем барышень делить ?
HELP массив-матрица Опять же Нужна помощь и Массив-матрица Дорогие московские студентки, вы бы уж как-то скооперировались, что ли, чем одни и те же задачки на форум сбрасывать! |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|