Помогите решить задачу в PascalABC определить количество элементов массива А 20, являющихся квадратом числа n

01.01.2001

Помогите решить задачу в PascalABC определить количество элементов массива А 20, являющихся квадратом числа n

  • program check;
    uses crt;
    var otv, i, n: integer; a: array [1..20] of integer;
    begin
    readln (n);
    n:=n*n;
    otv:=0;
    for i:=1 to 20 do ...;
    for i:=1 to 20 do begin
    if a=n then otv:=otv+1;
    end;
    clrscr;
    writeln (otv);
    repeat until keypressed;
    end.

    если массив вводится вручную, на месте точек ставишь writeln (a)
    если произвольно, то a:=random(...) , где на месте точек - предельное значение числа, а перед этой строкой тогда нужна строка randomize;
    И ещё!!! после всех а (их там 3) поставишь i в квадратных скобках!! ! Оно здесь не ставится.

  • for i = 1 to 20 do if (a[ i ] * a[ i ] = n) then inc(c);
  • Alexey N, не совсем ты прав. Если массив задан [1..20], то абсолютно верно. Но точней задать массив от нуля до 19, соответственно задать границы цикла
  • Если ещё актуально, пиши на почту, помогу.

Вас заинтересует