//PascalABC.NET 3.0, сборка 1088 begin var a:=ReadLines('infile.txt').ToArray; var n:=a.Length; Writeln('*** Исходная информация ***'); // фамилия, имя, возраст, рост, вес a.PrintLn(NewLine); Writeln('*** Задание 1 ***'); var sves:real:=0; var srost:real:=0; foreach var s in a do begin srost+=StrToFloat(s.ToWords.ElementAt(3)); sves+=StrToFloat(s.ToWords.ElementAt(4)) end; Writeln('Средний рост равен ',srost/n:5:1); Writeln('Средний вес равен ',sves/n:4:1); srost/=n; sves/=n; Writeln('*** Задание 2 ***'); var f2:=OpenWrite('rost.txt'); foreach var s in a do begin var ss:=s.ToWords; var rost:=StrToFloat(ss.ElementAt(3)); if rost>srost then begin var s0:=ss.Take(3).ToArray; var s1:=s0[0]+' '+s0[1]+', '+s0[2]; Writeln(s1); Writeln(f2,s1) end end; f2.Close; Writeln('*** Задание 3 ***'); f2:=OpenWrite('ves.txt'); foreach var s in a do begin var ss:=s.ToWords; var ves:=StrToFloat(ss.ElementAt(4)); if ves<sves then begin var s0:=ss.Take(3).ToArray; var s1:=s0[0]+' '+s0[1]+', '+s0[2]; Writeln(s1); Writeln(f2,s1) end end; f2.Close end.
Тестовое решение: *** Исходная информация *** Иванов Игорь 14 158 47.4 Петров Павел 14 161 58.3 Козлов Кирилл 15 160 60.3 Сидорова Мария 14 156 45.9 Тяпкина Наталья 15 158 46 Ляпкин Алексей 15 161 58.6 Мамочкин Константин 14 157 52.8 *** Задание 1 *** Средний рост равен 158.7 Средний вес равен 52.8 *** Задание 2 *** Петров Павел, 14 Козлов Кирилл, 15 Ляпкин Алексей, 15 *** Задание 3 *** Иванов Игорь, 14 Сидорова Мария, 14 Тяпкина Наталья, 15
1) Program n1; var n,i:integer; t:array[1..100] of real; a,b:real; begin readln(n); readln(a); readln(b); for i:=1 to n do begin t[i]:=(b-a)/n; write(t[i],' '); end; end. 2) Program n1; var a:array[1..100] of integer; n,i:integer; k:real; begin read(n); k:=0; for i:=1 to n do read(a[i]); for i:=1 to n do if a[i] mod 2 <> 0 then k:=k+1; writeln; writeln('кол-во нечет. чисел равно ',k,''); end. 6) Program n1; var a:array[1..100] of real; i,n:integer; s,sr:real; begin read(n); for i:=1 to n do read(a[i]); s:=0; sr:=0; for i:=1 to n do s:=s+a[i]; sr:=s/n; writeln('сред. арифметическое равно ',sr,''); end. 7) Program n1; var a:array[1..100] of real; i,n:integer; min,max:real; begin read(n); for i:=1 to n do read(a[i]); min:=a[1]; for i:=2 to n do if a[i]<min then min:=a[i]; max:=a[1]; for i:=2 to n do if a[i]>max then max:=a[i]; writeln('максимальный элемент равен ',max,''); writeln('минимальный элемент равен ',min,''); end. 8) Program n1; var a:array[1..100] of real; i,n:integer; min,max,nom1,nom2:real; begin read(n); for i:=1 to n do read(a[i]); min:=a[1]; nom1:=1; for i:=2 to n do if a[i]<min then begin min:=a[i]; nom1:=i; end; max:=a[1]; nom2:=1; for i:=2 to n do if a[i]>max then begin max:=a[i]; nom2:=i; end; writeln('максимальный элемент равен ',max,', его номер ',nom2,''); writeln('минимальный элемент равен ',min,', его номер ',nom1,''); end. 9) Program n1; var a:array[1..100] of real; i,n:integer; min,max,s,sr:real; begin read(n); randomize; for i:=1 to n do begin a[i]:=random(100)+1; write(a[i],' '); end; writeln; s:=0; sr:=0; for i:=1 to n do s:=s+a[i]; sr:=s/n; writeln('ср. арифм. = ',sr,''); min:=a[1]; for i:=2 to n do if a[i]<min then min:=a[i]; max:=a[1]; for i:=2 to n do if a[i]>max then max:=a[i]; writeln('максимальный элемент равен ',max,''); writeln('минимальный элемент равен ',min,''); end.
1)455:5=91
2)91-12=79
3)79•62=4898