#include < iostream> using namespace std; int main() { int mat[3][3]; int k; int size=0; int * arr=0; for(int i=0; i< 3; i++){ for(int j=0; j< 3; j++){ cin> > mat[i][j]; if (mat[i][j]> 0){ arr=(int*)realloc(arr,sizeof(int)*(++size)); arr[size-1]=mat[i][j]; } } } for(int i=0; i< size; i++){ cout< < arr[i]; } delete arr; cin.get(); cin.get(); return 0; }
ver2bit29
14.07.2020
//pascalabc.net 3.0, сборка 1064 const nn=50; var a: array[1..nn] of integer; i,n,imin: integer; begin write('введите количество элементов в массиве: '); read(n); randomize; writeln('исходный массив'); imin: =1; for i: =1 to n do begin a[i]: =random(51)-25; write(a[i],' '); if a[i]< a[imin] then imin: =i; end; writeln; for i: =imin to n-1 do a[i]: =a[i+1]; writeln('массив-результат'); for i: =1 to n-1 do write(a[i],' '); writeln end. тестовое решение: введите количество элементов в массиве: 15 исходный массив 17 -3 22 18 -13 -5 5 -15 -18 23 17 -2 -20 23 2 массив-результат 17 -3 22 18 -13 -5 5 -15 -18 23 17 -2 23 2 а это версия для тех, кто думает, что паскалю пора давно "на свалку": //pascalabc.net 3.0, сборка 1064 begin var n: =readinteger('введите количество элементов в массиве'); var a: =seqrandom(n,-25,25).toarray(); writeln('исходный массив: ',#13#10,a); writeln('результат: ',#13#10,a.where(x-> x< > a.min)); end. тестовое решение: введите количество элементов в массиве 15 исходный массив: [-10,-15,8,-19,9,21,-22,-11,12,14,2,19,-25,-5,-15] результат: [-10,-15,8,-19,9,21,-22,-11,12,14,2,19,-5,-15] можно сравнить понятность кода и его размер как со "школьным" решением, так и с программой на java, в предыдущем ответе.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Вкаждом из 4 углов комнаты стоит комп . перед каждым ещё 1.сколько всего компов