Вмассив p записать сначала отрицательные элементы массива x(k), затем положительные. данные для ввода: k=6, x(3; 0; -2; 2; 4; -3).

145

399

Посмотреть ответы 3

Ответы на вопрос:

rekiol544

Информатика

4,6(77 оценок)

Var x,p: array[1..100] of integer; k,n: integer; begin write('введите k: '); readln(k); write('введите массив x(',k,'): '); for k: = 1 to k do read(x[k]); write('массив p: '); n: =0; for k: = 1 to k do if x[k]< 0 then begin n: =n+1; p[n]: =x[k]; end; for k: = 1 to k do if x[k]=0 then begin n: =n+1; p[n]: =x[k]; end; for k: = 1 to k do if x[k]> 0 then begin n: =n+1; p[n]: =x[k]; end; for k: = 1 to k do write(' ',p[k]) end. пример: введите k: 6 введите массив x(6): 3 0 -2 2 4 -3 массив p: -2 -3 0 3 2 4

vikaplmplmpl

Информатика

4,6(83 оценок)

//как я понял, нули переносить не требуется //pascalabc.net 3.2 сборка 1318 begin var x: =readarrinteger((y -> y< > 0).sorted.print; end.

гвониха

Информатика

4,8(20 оценок)

Vara, b, c: integer; begina : = 18; b : = 2; a : = a * b; b : = a mod 6; c : = a - b; writeln('a = ', a); writeln('b = ', b); writeln('c = ', c); end. ============================== ответ: a = 36b = 0c = 36 c int main(){ int a, b, c; a = 18; b = 2; a = a * b; b = a / 6; c = a - b; printf("a = %d, b = %d, c = %d", a, b, c); } ответ: a = 36, b = 6, c = 30