Program pr4_1; Uses CRT; var i:byte; a:array[1..20] of real; begin clrscr; writeln('Vvodim A1,A2,...,A20'); for i:=1 to 20 do begin Write('A',i:2,'= '); Readln(a[i]); end; writeln('Vivodim celie polojitelnie chisla'); for i:=1 to 20 do begin if (a[i]>0) and (a[i] - Int(a[i]) = 0 ) then writeln('A',i:2,'= ',a[i]:8:0); end; readkey; end.
