Задать вопрос
25 февраля, 08:30

Ввести положительные и отрицательные элементы квадратной матрицы и перезаписать все положительные элементы в одномерный массив. Вывести одномерный массив.

+2
Ответы (1)
  1. 25 февраля, 09:13
    0
    const nx = 20;

    var x: array[1 ... nx, 1 ... nx] of integer; z:array[1 ... nx*2] of integer;

    i, j, k, n, r, t: integer;

    begin

    Writeln ('Введите размер матрицы n') ; Read (n) ;

    for i : = 1 to n do begin

    for j : = 1 to n do begin

    Read (k) ; x[i, j] : = k; end; end;

    Writeln ('Исходный массив') ;

    for i : = 1 to n do begin

    for j : = 1 to n do begin

    Write (x[i, j]:4) ;

    if x[i, j]>0 then begin t:=t+1; z[t]:=x[i, j]; end;

    end;

    Writeln; end;

    Writeln; Writeln ('Одномерный массив') ;

    for j : = 1 to t do

    Write (z[j]:4) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Ввести положительные и отрицательные элементы квадратной матрицы и перезаписать все положительные элементы в одномерный массив. Вывести ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы