Регистрация
соня1584
20.11.2022 17:07
Информатика
Есть ответ 👍

Написать программу на языке паскаль для вычисления затрат на ремонт !

125
149
Посмотреть ответы 1

Ответы на вопрос:

manokhaangel
manokhaangel
4,6(29 оценок)
Const   n = 10; var   matrix : array [1..n] of array [1..n] of integer;   i, j, max : integer; begin   {формирование матрицы}   for j : = 1 to n do   begin     if j < = trunc(n / 2) then         {находим последний индекс для вставки 1}         max : = j             else         max : = n - j + 1;     for i : = 1 to max do                           {заполняем линию единицами}     begin       matrix[j][i] : = 1;       matrix[j][n - i + 1] : = 1;     end;   end;   {вывод матрицы (если не нужно, удалите код)}   for j : = 1 to n do   begin     for i : = 1 to n do       write(matrix[j][i], ' ');     writeln;     end;       end.  

Популярно: Информатика