Составить программу для вычисления элементов одномерного массива

@Имя дня · Регистрация: 28.11.2022

Студворк — интернет-сервис помощи студентам

Составить программу для вычисления элементов одномерного массива:

@Cyborg Drone · 08.12.2022, 02:35

Pascal

const
  n = 10;
var
  a, y: array[1..n] of real;
  x: array[1..n, 1..n] of real;
  s: real;
  i, j, k: integer;
begin
  randomize;
  writeln('Матрица X:');
  s := 0;
  for i := 1 to n do
    begin
      for j := 1 to n do
        begin
          x[i,j] := 10 - 20 * random;
          write(x[i,j]:6:2);
          s := s + exp(sin(x[i,j]))
        end;
      writeln
    end;
  writeln('Вектор Y:');
  for k := 1 to n do
    begin
      y[k] := 10 - 20 * random;
      write(y[k]:6:2)
    end;
  writeln;
  writeln('Вектор A:');
  for k := 1 to n do
    begin
      a[k] := 0;
      for i := 1 to k do a[k] := a[k] + y[i] * x[k,i];
      a[k] := s / a[k];
      write(a[k]:6:2)
    end;
  writeln;
  readln
end.

@Имя дня 0 / 0 / 0 Регистрация: 28.11.2022 Сообщений: 26
		1
	Составить программу для вычисления элементов одномерного массива 07.12.2022, 23:17. Показов 146. Ответов 1 Метки нет (Все метки) Составить программу для вычисления элементов одномерного массива: 0

Опции темы