Задачи по задачнику Абрамова

[ManU]

В задаче №83 переменные "a" и "s" "скорее всего" должны быть одного типа.

[Andrux]

Вот уже почти конец задач...

Чета... я на 179в вообще встал.
Что смог? то написал, дальше уже не знаю что...
Напиши ее и объясни пожалуйста! как ты ее сделал, что использовал.

program anzad179v;
uses crt
var n,a1,an:real;
procedure(qi:real;var q1,qn:real);
          begin
          clrscr;
          qi:=
end.

Еще вот 367 задачка, эт на массивы, чет не понимаю дальше как...
Помогите пожалуйста... кто знает, как решить.

program anzad367;
uses crt;
var
  A:Array [1..3] Of Integer;
  B:Array [1..3, 1..3] Of Integer;
  I,J:Integer;
  begin
  clrscr;
  writeln;
  for I:=1 to 3 do
  for J:=1 to 3 do
      B[I,J]:=A[I]-3*A[J];
      writeln;
readln;
end.

Теперь что нужно дописать, чтобы программа считала по условию?...

[Andrux]

2 Задачи решены правильно, но не видно решения.
Пожалуйста, Подскажите где подправить чтоб было все видно и шел расчет?!

program anzad271;
uses crt;
var i: integer;
     at: real;
     a: array[1..15] of real;
     sum: real;
begin
clrscr;
for i := 1 to 15 do
  begin
  read(a[i]);
  at := at + a[i];
  end;
  at := at / 15;
  sum := 0;
  for i := 1 to 15 do
  sum := sum + sqr(a[i] - at);
  sum := sum / 14;
  sum := sqrt(sum);
  writeln(at:6:2,' ',sum:6:2);
readln;
end.

program anzad179v;
uses crt;
var n,qi,i,xx:integer;
    begin
    clrscr;
    writeln('Vvedite chemu ravno n');
    read(n);
    for i:=1 to n do
        begin
        read(qi);
        xx:=5-3*qi;
        if qi*qi=xx then
        write(qi,' ' );
        end;
        readln;
end.

Заранее благодарю!

[Tema51]

кто нибудь помогите с задачей 199 меня выкинут из универа если ее не сдам((

[Don Karleone]

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

кто нибудь помогите с задачей 199 меня выкинут из универа если ее не сдам((

во фриланс и вам помогут.