Программа заполняет двумерный массив (6х6) случайными числами на отрезке [-8,17],выводит его в виде таблицы

@Nightway · Регистрация: 24.02.2012

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

Дана такая задача:
Программа заполняет двумерный массив (6х6) случайными числами на отрезке [-8,17],выводит его в виде таблицы,выводит на экран дополнительно только отрицательные элементы.

Комментарий модератора

Заголовок темы изменен модератором.
Он должен быть информативным, отображая содержание темы.

@КонецСвета · 27.02.2012, 12:37

Pascal

uses crt;
const n=6;
var a: array [1..n,1..n] of integer;
    i,j: integer;
begin
writeln('Дана матрица');
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        a[i,j]:=random(26)-8;
        write(a[i,j]:4);
        end;
    writeln;
    end;
writeln('Отрицательные элементы матрицы');
for i:=1 to n do
    for j:=1 to n do
        if a[i,j]<0 then write(a[i,j],' ');
end.

@Nightway · 27.02.2012, 15:55 **[ТС]**

спасибо))

Комментарий модератора

Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.

Опции темы

Программа заполняет двумерный массив (6х6) случайными числами на отрезке [-8,17],выводит его в виде таблицы

Решение