Дан двумерный массив Х из вещественных элементов размерностью n 1. В одномерный массив переписать отрицательные элементы двумерного массива,расположенные ниже главной диагонали 2. Перенести в начало одномерного массива первый э...
Дан двумерный массив Х из вещественных элементов размерностью n
1. В одномерный массив переписать отрицательные элементы двумерного массива,расположенные ниже главной диагонали
2. Перенести в начало одномерного массива первый элемент,значение которого больше разности максимального и минимального элементов.
Для отладки программы элементы массива сформировать с помощью генератора случайных чисел
Гость
Ответ(ы) на вопрос:
Гость{uses Crt;}
{Для древних сред Паскаль, работающих в DOS-режиме, снять комментарии
в операторах uses, ClrScr, ReadKey }
const
n = 9;
var
x: array[1..n, 1..n] of real;
y: array[1..n*(n-1) div 2] of real;
i, j, k: integer;
max, min, d: real;
begin
Randomize;
{ClrScr;}
Writeln('Исходный массив');
for i := 1 to n do
begin
for j := 1 to n do
begin
x[i, j] := 100*Random - 50;
Write(x[i, j]:4:0)
end;
Writeln
end;
{ задание 1 }
k:=0;
for i:=2 to n do
for j:=1 to i-1 do
if x[i,j]<0 then begin Inc(k); y[k]:=x[i,j] end;
Writeln('Сформированный одномерный массив');
for i:=1 to k do Write(y[i]:4:0);
Writeln;
{ задание 2 }
max:=y[1]; min:=max;
for i:=2 to k do
if y[i]>max then max:=y[i]
else
if y[i]
Не нашли ответ?
Похожие вопросы