Задача с массивом:

Задан одномерный массив А на 7 ячеек, заполненные произвольными числами. Найти значение квадратных корней из всех допустимых элементов массива. В ячейках такие числа: 4, - 3, 16, 9, - 1, - 9, 25

Const a:array[1 ... 7] of integer = (4, - 3, 16, 9, - 1, - 9, 25) ;

var i:integer;

begin

writeln ('Массив:') ;

for i:=1 to 7 do write (a[i]:3) ;

writeln;

writeln ('Квадратные корни') ;

for i:=1 to 7 do

if a[i]>0 then write (sqrt (a[i]),' ') ;

writeln;

end.

Результат:

Массив:

4 - 3 16 9 - 1 - 9 25

Квадратные корни

2 4 3 5