Здравствуйте , желательно с полным объяснением. Задание 1 (таблица снизу) Доцент Злов внёс в таблицу результаты контрольной, написанной студентами его группы, тяжело вздохнул и стал подсчитывать в ячейке В12 среднее количество решённых задач, введя для этого формулу. 1) Какое число появится в ячейке, когда Злов нажмёт Enter? 2) Сколько на самом деле задач решил в среднем один студент? 3) Какую формулу следует ввести в В12 для получения корректного значения при любых исходных данных?
Задание 2 Выберите верную последовательность действий при сложном форматировании абзаца в текстовом редакторе. а) задать вид форматирования, задать параметры форматирования, выделить абзац, подтвердить. б) задать вид форматирования, выделить абзац, задать параметры форматирования, подтвердить. в) выделить абзац, задать параметры форматирования, задать вид форматирования, подтвердить. г) выделить абзац, задать вид форматирования, задать параметры форматирования, подтвердить.
Задание 3 Точечный рисунок размером 600 на 800 пикселей занимает в памяти около 60 килобайт. Определите количество цветов в палитре рисунка.
var c, a: array[1..20] of integer; i: integer; begin write('Первый массив '); for i := 1 to 20 do begin c[i] := i * (-5); write(c[i], ' '); end; writeln; write('Преобразованный массив '); for i := 1 to 20 do begin a[i] := c[20 - i + 1]; write(a[i], ' '); end; end.
ИЛИ Программа не использующая два массива, а просто переворачивающая первый
var c: array[1..20] of integer; i: integer; begin write('Первый массив '); for i := 1 to 20 do begin c[i] := i * (-5); write(c[i], ' '); end; writeln; write('Преобразованный массив '); for i := 20 downto 1 do write(c[i], ' '); end.
var
c, a: array[1..20] of integer;
i: integer;
begin
write('Первый массив ');
for i := 1 to 20 do begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 1 to 20 do begin
a[i] := c[20 - i + 1];
write(a[i], ' ');
end;
end.
ИЛИ Программа не использующая два массива, а просто переворачивающая первый
var
c: array[1..20] of integer;
i: integer;
begin write('Первый массив ');
for i := 1 to 20 do begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 20 downto 1 do write(c[i], ' ');
end.
Обе программы работают!
1) program Array16;
var
i:integer; // счетчик в цикле
N:integer;
a: array [1..10] of integer;
begin
writeln('Введите N (N<10)');
readln(N); // ввод размера массива
for i:=1 to N do
begin
write('a[',i,']=');
readln(A[i]); // ручной ввод значений массива
end;
writeln('Результат');
for i:=1 to N do
begin
// вычисление и вывод элементов в указанном порядке
write(' ',a[(i div 2+1)*((i) mod 2)+ n*((i+1)mod 2)-((i div 2)-1)*((i+1) mod 2)]);
end;
end.
2) Var A:array[1..100] of integer;
i,n:byte;
Begin
write('Введите n<=100: ');readln(n);
For i:=1 to n do
Begin
A[i]:=random(31);
write(A[i]:3);
End;
writeln;
For i:=1 to n div 2 do
write(A[i]:3,A[n-i+1]:3);
if n mod 2 <>0 then write(A[n div 2+1]:3);
End.