Неотрицательные элементы нижнего треугольника матрицы относительно главной диагонали переписать в файл

@marijane · Регистрация: 09.12.2014

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

Ввести матрицу А(n,n). Неотрицательные элементы нижнего треугольника матрицы относительно главной диагонали переписать в файл.

@JokeR.BY · 16.04.2015, 21:09

Pascal

var
    f: Text;
    i, j, n: Byte;
    a: Array[Byte, Byte] Of ShortInt;
begin
    Randomize;
    Write('n='); ReadLn(n); Dec(n);
    for i := 0 to n do
    begin
        for j := 0 to n do
        begin
            a[i, j] := Random(199) - 98;
            Write(a[i, j]:4);
        end;
        WriteLn;
    end;
    Assign(f, 'f.txt'); ReWrite(f);
    for i := 1 to n do
    begin
        for j := 0 to i - 1 do
            Write(f, a[i, j]:4);
        WriteLn(f);
    end;
    Close(f);
end.

@marijane 0 / 0 / 0 Регистрация: 09.12.2014 Сообщений: 19
		1
	Неотрицательные элементы нижнего треугольника матрицы относительно главной диагонали переписать в файл 16.04.2015, 00:29. Показов 1215. Ответов 1 Метки нет (Все метки) Ввести матрицу А(n,n). Неотрицательные элементы нижнего треугольника матрицы относительно главной диагонали переписать в файл. 0

Опции темы

Неотрицательные элементы нижнего треугольника матрицы относительно главной диагонали переписать в файл

Решение