Задача на одномерный массив....

[malova]

Помогите кто может!!!!!!!!!!
Имеется одномерный массив А, состоящий из N произвольных чисел. Напечатать все числа из очереди, квадрат которых превышает 7, но меньше 50.

[havok]

var 
  i,n:integer;
  a:array[1..100] of integer;
begin
  readln(n);
  randomize;
  writeln('ish mas:');
  for i:=1 to n do begin
    a[i]:=random(10);
    write(a[i]:4,'   '  );
  end;
  writeln('elementy po usloviyu:');
  for i :=1 to n do
    if (sqr(a[i])>7) and (sqr(a[i])<50) then write(a[i]:4, '  ');
  readln;
end.

[malova]

У меня получилось вот так... что то не идет
program a1;
var n,i : integer;
a: array [ 1..50] of integer;
begin
writeln('vvedite n');
readln(n);
for i:=1 to n do begin
writeln ('vvedite znachenie');
readln (a[i]);
end;
for i:=1 to n do
if (a[i]*a[i]<7) and (a[i]*a[i]>50) then write (a[i],'');
readln;
end.

[malova]

Ой спасибо.... сразу не заметила

[malova]

Извените за глупый вопрос.....
просто я новичок...
А как вы вставляете код в форуме?

[Sazary]

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

У меня получилось вот так... что то не идет

Ошибка в знаках.

if (a[i]*a[i]>7) and (a[i]*a[i]<50) then write(a[i],' ');

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

А как вы вставляете код в форуме?

BB-тег CODE.

[code]
.......тут код
[/code]

Или просто нажмите значок на панели.

[Mr.Qwerty]

Безымянный.png, собственно вот так вот) //offtop Sazary опередил меня пока я инет переподключил)

[Albetinio]

Помогите пожалуйста решить задачу
Задача:
"Составить алгоритм в виде блок-схемы и программу для решения задачи.
Для одномерного вещественного массив, содержащего данные о температуре воздуха за неделю, найти среднюю температуру воздуха. Элементы массива распечатать в столбец с указание имени и индекса каждого элемента"