массивы

[volkonskaya]

простите,что писала такие название.просто брат сказал,что здесь нужно все именно так оформлять:коротко и по делу.простите еще раз,надо было мне самой разобраться.мне очень жаль.

задача:
Даны целые положительные числа а1,а2,...,аn.Найдите среди них те,которые являются квадратами некоторого числа m.

[Poma][a]

ура! вроде всё правильно сделала)
ну а теперь вопрос по заданию : у числа m только один квадрат! тоесть надо проверить и вывести те числа которые равны m^2 ?

[volkonskaya]

я не знаю,если быть предельно честной)массивы совершенно не понимаю,только самые простенькие задачи в паскале решаю.так что на Ваш вопрос ответить не смогу)

[ByAlex]

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

я не знаю,если быть предельно честной)массивы совершенно не понимаю,только самые простенькие задачи в паскале решаю.так что на Ваш вопрос ответить не смогу)

Держи -

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const
  n=5;
var
  Arr:array[1..n] of integer;
  i,m:integer;
begin
  writeln('Input the elements of massive!');
  for i := 1 to n do
  begin
    write('A[',i,'] = ');
    readln(Arr[i]);
  end;
  writeln;
  write('Input the number m = ');
  readln(m);
  writeln('Result:');
  for i := 1 to n do
    if (m div Arr[i]) = Arr[i] then
      writeln(Arr[i]);
  readln;
end.

Была ошибка, исправил!

[s-andriano]

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

я не знаю,если быть предельно честной)массивы совершенно не понимаю,только самые простенькие задачи в паскале решаю.так что на Ваш вопрос ответить не смогу)

Вопрос был не про особенности реализации, а по условию задачи, которое можно понять двояко.

Решение сделано для случая заранее предопределенного числа M.

[SlavaSSU]

мне кажется, что код от ByAlex неправильный, например для a[i]=17и m=4. и еще надо же чтобы элемент массива был равен sqr(m), т.е. m*m=arr[i], а не arr[i]*arr[i]=m, разве не так???

[TinMan]

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

разве не так???

Истинно так, СлаваССУ.
Если генерировать массив случайно, то примерно так можно:

const
  n= 20;
var
  a: array[1..n] of integer;
  i: integer;
begin
  for i:=1 to n do a[i]:= Random(n);
  writeln('integer numbers:');
  for i:=1 to n do write(a[i]:4);
  writeln;
  writeln('whole squares of them:');
  for i:=1 to n do
    if a[i] = Round(Sqr(Sqrt(a[i])) then writeln(a[i]:4,' at i=',i);
  readln
end.

P.S.
волконская, твой брат все правильно сказал, не надо только доводить хорошее дело до абсурда. Помни, что ты общаешься не с роботами все же.. Ты перечитывай свои мессаджи и смотри, понравилось ли бы тебе, если бы с тобой заговорили в таком духе.

[ByAlex]

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

мне кажется, что код от ByAlex неправильный, например для a[i]=17и m=4. и еще надо же чтобы элемент массива был равен sqr(m), т.е. m*m=arr[i], а не arr[i]*arr[i]=m, разве не так???

Ааа, точно! Изначально было правильно написал, а потом что то прочитал условие и переделал. Там код для корней числа m.