Протабулировать функцию у = sin(x+ i) на отрезке - вопрос №25992780001 от Ksenia2351 09.11.2021 17:18

Question

Информатика: Протабулировать функцию у = sin(x+ i) на отрезке [0; i]с шагом h=0,01*i, где i – номер варианта. результаты вычислений вывести на экран в виде таблицы пар чисел х и у. вычислить произведение отрицательных значений функции у. определить аргумент максимального значения функции. создать и вывести массив у(8), с элементами уk = ln(k) - 3k, где k = 1,2…. выполнить дополнительно своего варианта поиска данных по некоторому критерию (признаку). найти в массиве отрицательные элементы и заменить их значение

Ksenia2351 · Answer

Var
  i,j,min,s:integer;
  a:array[1..4,1..4]of integer;
begin
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
a[i,j]:=random(-20,20);
write(a[i,j]:4);
if i=1 then min:=a[i,j];
if a[i,j]<min then min:=a[i,j];
if j>i then s:=s+a[i,j];
end;
writeln
end;
writeln('Искомая сумма: ',s);
write('Индексы минимального элемента: ');
for i:=1 to 4 do
for j:=1 to 4 do
   if a[i,j]=min then write('(',i,',',j,') ')
end.