Значит так задача 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.
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.
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.