В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Zer2806
Zer2806
30.12.2021 14:58 •  Информатика

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

Показать ответ
Ответ:
SmertKiller
SmertKiller
06.07.2020 10:51
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.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота