Массив f заполнен кубами первых 10 натуральных чисел. вставить на 3 место квадрат количества элементов в массиве. в получившемся массиве удалить последовательно пятый и восьмой элементы. программу требуется написать в pascal.

202

459

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

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

cthut2016

Информатика

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

Var a, b, c, i, n : integer; s : array [1..10000] of longint; begin read (n); for i: =1 to n do s[i]: =i*i*i; s[3]: =n*n; s[5]: =0; s[8]: =0; for i: =6 to n do s[i-1]: =s[i]; for i: =8 to n do s[i-1]: =s[i]; for i: =1 to n-2 do write (s[i], ' '); end.

vanekroland01

Информатика

4,4(23 оценок)

Var f: array[1..10] of integer; i: integer; begin //заполняем массив кубами чисел for i: =1 to 10 do begin f[i]: =i*i*i; end; f[3]: =length(f)*length(f); delete(5,10); delete(8,10); procedure delete(x: integer; n: integer); var j : integer; begin {сдвиг индекса элементов на один влево} for j: =x to n do begin f[j]: = f[j+1]; end; f[n]: =0; {последний элемент равен 0} end; end.

Rina12346

Информатика

4,4(62 оценок)

Количество пикселей в 1 картинке: 640*480 = 307200 количество информации в 1 картинке: 307200*4 = 1228800 бит = 153600 байт = 150кбайт. 10 картинок займут 10*150 кбайт = 1500 кбайт.