Составить программу замены местами в массиве b(n) второго и предпоследнего элемента, а так же сортировки этого массива по возрастанию.

298

381

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

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

vprasckowya

Информатика

4,5(67 оценок)

// pascalabc.net 3.1, сборка 1239 от 08.05.2016 begin var n: =readinteger('n='); var b: =arrrandom(n,10,99); b.println; swap(b[1],b[n-2]); b.println; b: =b.sorted.toarray; b.println end. тестовое решение n= 15 74 23 76 50 79 79 38 74 21 33 45 10 35 58 48 74 58 76 50 79 79 38 74 21 33 45 10 35 23 48 10 21 23 33 35 38 45 48 50 58 74 74 76 79 79

milarudneva449

Информатика

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

Program pr; uses crt; var mas: array[1..1000, 1..1000] of integer; n,m,i,j,k: integer; begin writeln('введите размер матрицы n*m'); write('n = '); readln(n); write('m = '); readln(m); if (m> 1000) or (n> 1000) or (m< 1) or (n< 1) then writeln('ошибка, указанные значения выходят за пределы матрицы') else begin writeln('введите элементы матрицы'); k: =0; for i: =1 to n do for j: =1 to m do begin readln(mas[i,j]); if (mas[i,j] mod 2 = 0) then k: =k+1; end; writeln(); writeln('исходная матрица'); for i: =1 to n do begin for j: =1 to m do begin write(mas[i,j], ' ') end; writeln(); end; writeln(); writeln('количество четных элементов = ',k); end; readln; end.