помогите нарисовать блок-схемы для двумерного массива паскаль

[вилена]

Добрый день! помогите нарисовать блок-схемы для двумерного массива, код у меня есть и проверить одну задачу, там кажется не совсем верное решение

[tig81]

а условие где?

[вилена]

1. Program p;
const
        M:array [1..5,1..3] of integer = ((-1,5,8,0,11), (1,7,- 15,4,0), (3,-4,10,0,16)));
var i,j,sum:integer;
begin
        sum:=0;
        for i:=1 to 3 do
                for j:=1 to 5 do
                        if (m[i,j]>=-1) and (m[i,j]<=10) then
                                sum:=sum+m[i,j];
        writeln('summa='sum);
        readln
end.

[вилена]

2.Program p;
const
        M:array [1..5,1..3] of integer = ((-1,5,8,0,11), (1,7,- 15,4,0), (3,-4,10,0,16)));
var i,j,sum,num:integer;
        av:real;
begin
        sum:=0;
        num:=0;
        for i:=1 to 3 do
                for j:=1 to 5 do
                        if m[i,j]<0 then
                        begin
                                sum:=sum+m[i,j];
                                num:=num+1
                        end;
        av:=sum/num;
        writeln('srednee='av:4:4);
        readln
end.

[вилена]

3. 9.
Program p;
const
        M:array [1..5,1..3] of integer = ((-1,5,8,0,11), (1,7,- 15,4,0), (3,-4,10,0,16)));
var i,j,sum:integer;
begin
        sum:=0;
        for i:=1 to 3 do
                for j:=1 to 5 do
                        if m[i,j] mod 2=0 then
                                sum:=sum+m[i,j];
        writeln('summa='sum);
        readln
end.

[вилена]

4. 10.
Program p;
const
        M:array [1..5,1..3] of integer = ((-1,5,8,0,11), (1,7,- 15,4,0), (3,-4,10,0,16)));
var i,j,num:integer;
begin
        num:=0;
        for i:=1 to 3 do
                for j:=1 to 5 do
                        if (m[i,j]<> 0) and (j mod 2<>0) then
                                num:=num+1;
        writeln('summa='num);
        readln
end.

[вилена]

А вот задача: Дан двумерный массив М, состоящий из целых чисел: ((-1, 5,8,0,11), (1,7,-15,4,0), (3,-4,10,0,16))
Program p;
const
        M:array [1..5,1..3] of integer = ((-1,5,8,0,11), (1,7,- 15,4,0), (3,-4,10,0,16)));
var i,j,min:integer;
begin
        min:=maxint;
                for j:=1 to 5 do
                        if m[2,j]<min then min:=m[2,j];

        writeln('minimum='min);
        readln
end.

Мне кажется тут есть ошибка, здесь кажется не все условия соблюдены, хотя могу и ошибиться

[wital1984]

А вот задача: Дан двумерный массив М, состоящий из целых чисел: ((-1, 5,8,0,11), (1,7,-15,4,0), (3,-4,10,0,16))
....
Мне кажется тут есть ошибка, здесь кажется не все условия соблюдены, хотя могу и ошибиться

Вы, мне кажется, совсем "не в теме". Блок-схемы рисуются не для массивов. Блок-схема - это графические изображение алгоритма. Алгоритм решения задачи можно описать словами, можно нарисовать блок-схему, можно написать на каком-то языке программирования. Блок-схему можно нарисовать к каждому фрагменту кода, которые вы привели выше, это совсем несложно.

Дан двумерный массив М, состоящий из целых чисел: ((-1, 5,8,0,11), (1,7,-15,4,0), (3,-4,10,0,16))"

- это вообще не задача. Это вообще к чему?

[вилена]

по поводу задачи - такие задачи дают в ВУЗе, а по поводу блок-схем, я понимаю, что это легко, только, когда знаешь как их сделать, я помощи прошу, я не знаю, как правильно графически стрелки указать в блок-схеме, вот и прошу помощи

[tig81]

по поводу задачи - такие задачи дают в ВУЗе,

И все, больше в условии ни слова? Что с массивом надо сделать?

[вилена]

если более понятнее изложить, что мне надо - нарисовать блок-схемы к каждому фрагменту кода, которые приведены выше

[вилена]

Дан двумерный массив М, состоящий из целых чисел: ((-1, 5,8,0,11), (1,7,-15,4,0), (3,-4,10,0,16)).  Найти значение минимального элемента второй строки.

[Selyd]

А вот задача: Дан двумерный массив М, состоящий из целых чисел: ((-1, 5,8,0,11), (1,7,-15,4,0), (3,-4,10,0,16))
Program p;
const
        M:array [1..5,1..3] of integer = ((-1,5,8,0,11), (1,7,- 15,4,0), (3,-4,10,0,16)));
var i,j,min:integer;
begin
        min:=m[2,1];
                for j:=2 to 5 do
                        if m[2,j]<min then min:=m[2,j];

        writeln('minimum='min);
        readln
end.

Мне кажется тут есть ошибка, здесь кажется не все условия соблюдены, хотя могу и ошибиться

Запуск первым элементом второй строки.

[wital1984]

если более понятнее изложить, что мне надо - нарисовать блок-схемы к каждому фрагменту кода, которые приведены выше

для первого сделал, дальше сами
Задача решена правильно

[вилена]

спасибо, буду пробовать с остальными