Текст программы
program lab6
implicit none
real m(1:12),d,s,t
integer i,u
open(1,file='in.txt')
open(2,file='out.txt')
read(1,*) m
write(*,*) 'Input d:'
read(*,*) d
write(2,1) m
do i=1,12,1
if(m(i)>d.and.mod(float(i),2.)/=0) then
s=s+m(i)
endif
if(m(i)<m(u)) then
u=i
endif
enddo
t=sum(m)/12.
write(2,2) s
write(2,3) t
write(2,4) u
1 format('исходный массив в 2 колонки'/(2x,2F11.1) )
2 format('сумма элементов больших d с нечетным номером s=',f7.3)
3 format('cреднее арифметическое элементов t=',f7.3)
4 format('номер наименьшего элемента u=',i2)
End
Файл in.txt
1
3.4
56.9
66
7.8
-45
58
0.4
23
5
0
-20
Файл out.txt
исходный массив в 2 колонки
1.0 3.4
56.9 66.0
7.8 -45.0
58.0 .4
23.0 5.0
.0 -20.0
сумма элементов больших d с нечетным номером s=145.700
cреднее арифметическое элементов t= 13.042
номер наименьшего элемента u= 6
Санкт-Петербургский Государственный Университет
Информационных технологий,
Механики и оптики
Отчет
К лабораторной работе по информатике
Вариант № 4
«Решение задач с одномерными массивами»
Студент:
Преподаватели:
2005 г.