на лазерном диске объемом 700 мбайт можно разместить: 2 книги размером 350 000 гбайт 7 книг размером 1200 кбайт 2 книги размером 370 Мбайт книга размером 90 Мбайт

121

381

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

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

sofiaivkina84

Информатика

4,7(99 оценок)

1.const n=10; var a: array[1..n] of integer; i,min,max: integer; beginfor i: =1 to n do a[i]: =random(50); for i: =1 to n do write(a[i]: 4); writeln; min: =32000; max: =-32000; for i: =1 to n doif a[i]< min then min: =a[i]; for i: =1 to n do if a[i]> max then max: =a[i]; writeln('минимальный элемент массива = ',min); writeln('максимальный элемент массива= ',max); end.2.const n=10; var a: array[1..n] of integer; i,j,p: integer; beginfor i: =1 to n do a[i]: =random(20); for i: =1 to n do write(a[i]: 4); writeln; for i: =1 to n-1 do beginfor j: =1 to n-1 doif a[j]< =a[j+1] then beginp: =a[j]; a[j]: =a[j+1]; a[j+1]: =p; end; end; for i: =1 to n do write(a[i]: 4); end.