получить целочисленный массив B[1..3,1..3], для которого B[I,j]=ai-3aj

[BlackThornGreed]

помогите пожалуйста с двумя задачами.

1) Даны целые числа a1, a2, a3.
Получить целочисленный массив B[1..3,1..3], для которого B[I,j]=ai-3aj

по этой задаче нет никаких мыслей. массивы я упустил из виду к сожалению(

2) Составить программу идентификации треугольника: остроугольный, тупоугольный, прямоугольный, равнобедренный, равносторонний – по двум углам. Причем первые три типа могут сочетаться с четвертым. Контролировать допустимые значения при вводе данных.
(чтото подобное уже было на форуме, но там был простой пример для прямоугольного треугольника с опрелением по длине сторон)

мои мысли: использовать правила напротив наибольшей стороны лежит наибольший угол и напротив равных сторон лежат равные углы... но не получается совместить это все и чтобы работало и делало проверку для всех 5 случаев треугольников.

заранее извиняюсь если проглядел в готовых ответах. просто очень тороплюсь и не могу позволить себе прочитать все 76 страниц с ответами

[Arigato]

по этой задаче нет никаких мыслей. массивы я упустил из виду к сожалению(

К счастью, в Интернете полно информации по массивам:
http://www.nigma.ru/index.php?s=%D0%...&nm=1&lang=all

[alex_fcsm]

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

1) Даны целые числа a1, a2, a3.
Получить целочисленный массив B[1..3,1..3], для которого B[I,j]=ai-3aj

по этой задаче нет никаких мыслей. массивы я упустил из виду к сожалению(

Попробуйте разобраться

const n=3;
var i,j:integer;
    a:array[1..n] of integer;
    b:array[1..n,1..n] of integer;
    
begin
for i:=1 to n do
 readln(a[i]);
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  b[i,j]:=a[i]-3*a[j];
  write(b[i,j]:4);
  end;
  writeln;
 end;

end.

P.S. Было бы в чем....

[alex_fcsm]

uses crt;
var a,b,c:real;

begin
repeat
clrscr;
writeln('Введите 2 угла');
readln(a);
readln(b);
until ((a+b)<180)and(a>0)and(b>0);
c:=180-(a+b);
if  (a=b)and(b=c) then writeln('Равносторонний')
     else if (a=b)or(b=c)or(c=a) then writeln('Равнобедренный');
if (a>90)or(b>90)or(c>90) then writeln('Тупоугольный')
  else if (a=90)or(b=90)or(c=90) then writeln('Прямоугольный')
       else writeln('Остроугольный');
writeln(a,' ',b,' ',c);
end.

[BlackThornGreed]

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