лабораторная работа / вар7 / Лаб5

Балаковский институт техники технологий и управления

Лабораторная работа №5

Вариант 7

Выполнил студент УИТ-2в

Балаково 2007 год.

Задание: В массиве найти элементы, корни квадратные из которых, являлись бы целыми числами, и вывести эти элементы на экран.

Текст программы:

program lab5;

var

a:array[1..20] of real;

n,i:byte;

s:real;

begin

Writeln('Введите количество элементов');

read(n);

Writeln('Введите массив');

for i:=1 to n do

begin

Read(a[i]);

end;

writeln('Корни:');

for i:=1 to n do

begin

if a[i]=sqr(trunc(sqrt(a[i]))) then

writeln(a[i]:1:0);

end;

end.

Рис.1 Блок–схема программы