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

Задан одномерный массив А на 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