Одномерный массив из 13 элементов заполнить случайным образом числами -7 до 7. присвоить 5-му элементу удвоенное значение 10-го элемент, а 1-му элементу значение 4-го элемента.
Var a:array[1..13] of integer;i:integer;beginrandomize;for i:=1 to 13 do begin a[i]:=random(14)-7; write(a[i],' '); end; a[5]:=2*a[10]; a[1]:=a[4]; writeln;for i:=1 to 13 do begin write(a[i],' '); end; end.
1. Определим объем памяти, который занимает одна страница. Символ текста кодируется 16 битами или 16/8=2 байтами. 1024 символа займут 1024х2=2048 байт. Рисунок состоит из 256х128=32768 точек, а цвет каждой точки кодируется 16 битами или 16/8=2 байтами. Следовательно, рисунок займет 32768х2=65536 байт. Итого страница займет 2048+65536=67584 байт 2. Определим объем книги. В книге 512 страниц, поэтому её объем составит 512х67584=34603008 байт. Используем для ответа более крупные единицы. 34 603 008 / 1 024 = 33 792 Кбайта 33 792 / 1024 = 33 Мбайта ответ: книга имеет объем 33 МБ
Первая: Uses crt; Var arr:array[1..100] of integer; n,a,c:integer; Begin Write('Сколько чисел вы хотите ввести?-'); Readln(n); for a:=1 to n do begin Write('Введите ',a,' число:'); Readln(arr[a]); end;c:=0; For a:=1 to n do Begin if (arr[a] mod 2<>0) and (arr[a]<0) then c:=c+1; end; Writeln('В последовательности ',c,' нечетных отрицательных чисел.'); end.
Вторая: Uses crt; Var arr:array[1..100] of integer; a,b,c,m:integer; begin Write('Сколько чисел вы хотите ввести?-'); Readln(b); For a:=1 to b do begin Write('Введите ',a, ' число:'); Readln(arr[a]); end; For a:=1 to b do Begin m:=arr[a]; For c:=1 to 2 do begin arr[a]:=m*arr[a]; end;end; For a:=1 to b do begin Writeln('Куб ',a,' введенного вами числа равен:',arr[a]); end; end.
end.