массивы

[-ushёl-]

люди!подскажите!наведите на правильное направление действий!!!!!2 задачи: 1.Создать одномерные массивы:1)из булевых переменных;2)из символов.Из второго массива вывести на экран только те элементы,индексы которых совпадают с индексами элементов первого,имеющие значение true.(нужно ли создавать промежуточный массив и ни как не пойму как заполнить булевский массив????).
2задача.Вычислить сумму тех столбцов двумерного массива размерностью 5*5,последний элемент которых равен элементу,стоящему на главной диагонали.
немного накидал код:
var
a:array[1..5,1..5]of byte;
i,j:integer;{столбец и строка}
s:real;
begin
for i:=1 to 5 do
for j:=1 to 5 do
a[i,j]:=Random(100);
s:=0;
for i:=1 to 5 do
for j:=1 to 5 do
begin
if a[i,5] = a[3,3] then
s:=s+a[i,5]
end;
write(a[i,j],'|');
writeln;
write(s)
end.

[KORN]

для хаполнения Boolean массива делаешь random(1) и далее если 0 тогда false если 1 то true

[-ushёl-]

Сообщение от KORN

для хаполнения Boolean массива делаешь random(1) и далее если 0 тогда false если 1 то true

а с 2ой задачкой можешь подмоч? был бы очень признателен тебе!

[Лунатик222]

program first;
uses crt;
var a:array [1..10] of integer;
    b:array [1..10] of boolean;
    i,j:integer;
begin
clrscr;
randomize;
for i:=1 to 10 do
 begin
 a[i]:=random(10);
 write(a[i], ' ');
end;
writeln;
for i:=1 to 10 do
 begin
 j:=random(1+1);
  if j=1 then
   b[i]:=true
  else b[i]:=false;
 write(b[i], ' ');
 end;
writeln;
for i:=1 to 10 do
 begin
  if b[i]=true then
   write(a[i], ' ');
 end;
readln;
end.

[-ushёl-]

спасибо!!а ты мог бы мне объяснить зачем в выражении j:=random(единица+единица?) можно поставаить 2 ?

[KORN]

мб так j:=random(1)+1;?

[DM_bite]

спасибо!!а ты мог бы мне объяснить зачем в выражении j:=random(единица+единица?) можно поставаить 2 ?

Возможно имелось ввиду

j:=random(i+1);

[-ushёl-]

прога пошла хорошо и c 1+1...так просто поинтересовался.

[-ushёl-]

только вот как заполнить массив символов буквами от A до J? вместо integer нужен массив символов...

[KORN]

берешь константу задаешь ей текст и рэндомно выбираешь букву из константы