Задачки Опции

[Andreyka]

Я еще только ушлый юзер в Паскале (TCP/IP –foreva), а тут такая лажа вышла написать чего-то на Паскале начал и запнулся – может есть кто наставит меня на путь истинный?
Значит так задача 1: Массив В(15) заполнить случайными целыми числами в диапазоне (0-200). Найти минимальное значение min для В(1)>100, а также его индекс М. Вывести В, min, М.
Мои наработки:

Код

Program mass;
uses crt;
const m=30;
var b:array[1..m] of integer;
i,n,j:integer;
begin
clrscr;
randomize;
n:=15;
for i:=1 to n do
begin
b[i]:=random(200);
write(b[i]:4);
end;
readln;
end.

Задача 2: Матрицу С(8,8) заполнить случайными целыми числами в диапазоне (1-100). Найти все четные числа, лежащие на главной диагонали С(1,1)-С(8,8) и ниже ее и заполнить ими массив В. Массив В заполнить плотно. Вывести С и В.
Что я смог:

Код

program matrix;
uses crt;
var
mat:array[1..8,1..8] of integer;
i,j:byte;
begin
clrscr;
randomize;
for i:=1 to 8 do
for j:=1 to 8 do
mat[i,j]:=random(100);
write(mat[i,j]);
readln;
end.

Сообщение отредактировано: volvo - 17.12.2004 15:25

[Кот]

Задачка 1:

Если правильно понял, то ..

Код

...
min = 201;
index = m+1;
For i:=1 to m do
begin
 if (b[i] > 100) and (b[i] < min) then
       begin
            min = b[i];
            index = i;
       end
end
writeln( "Минимум -", min, " Индекс - ", ind);

Задачка 2

Код

var B: array[1..8] of integer;
...
j := 1;
For i := 1 to 8 do
begin
  If (mat[i,i] mod 2) =0 then
     begin
         b[j] := mat[i,i];
         j := j + 1;
    end
end
...
{вывод}

P.S.: давно не брал Паскаль в руки, мож где и ошибся

Сообщение отредактировано: volvo - 17.12.2004 15:27