21. ввести в таблицу значения аргументов функции на заданном интервале. 2. ввести формулу в первую ячейку - id186190020230407 от kulickowakul 07.04.2023 16:11

Question

Информатика: 21. ввести в таблицу значения аргументов функции на заданном интервале. 2. ввести формулу в первую ячейку столбца для соответствующих значений функции. 3. скопировать эту формулу на остальные ячейки этого столбца. 4. выделив в таблице нужный для построения диапазон ячеек, построить с мастера диаграмм график функции, подобный тому, какой изображѐн на выше представленном рисунке. 5. отформатировать область графика по собственному усмотрению, используя различные цвета заливки, границ, размеры шрифта.

kulickowakul · Accepted Answer

function summa(n:integer):integer;

var a,s:integer;

begin

a:=abs(n);

s:=0;

while a>0 do

begin

s:=s+a mod 10;

a:=a div 10;

end;

summa:=s

end;

const n=10;

var A:array [1..n] of integer;

j,i,k:integer;

begin

writeln('Исходный массив: ');

for i:=1 to n do

begin

A[i]:=random(15)+1;

write(A[i]:4);

end;

for i:=1 to n-1 do

begin

for j:=1 to n-1 do

if summa(A[j])<summa(A[j+1]) then

begin

k:=A[j];

A[j]:=A[j+1];

A[j+1]:=k

end;

writeln;

writeln('Отсортированный массив: ');

for i:=1 to n do

write(A[i]:4);

readln

end.

MOGZ ответил