С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Составить новый вектор, записав в него для каждого элемента исходного ве
Условие Задачи:
С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Составить новый вектор, записав в него для каждого элемента исходного вектора средние арифметическое его цифр. Результаты вывести на экран.
program PascalGuru; var X:array[1..100] of integer;{описание переменных} Y:array[1..100] of real; i,n:integer; {-----------------------------------------------------} function srar(z:integer):real;{функция вычисляющая сумму цифр числа "z"} var s:integer; st:string; begin str(z,st); s:=0; while ( z<>0 ) do begin s := s + (z mod 10); z := z div 10; end; srar:=s/length(st); end; {-----------------------------------------------------}
begin write('Razmer massiva: '); readln(n); {ввод размерности массива}
writeln ('Vvedite elementy massiva X: '); for i:=1 to n do begin write ('X[',i,']='); readln (X[i]); end; {ввод элементов массива}
writeln ('Vot vvedennyi vami massiv X: '); for i:=1 to n do write (X[i]:4,' ');{вывод элементов массива}
for i:=1 to n do Y[i]:=srar(X[i]); {в массив Y переписываем значения Ср.Ариф. чисел элементов массива X}
writeln;writeln; writeln ('Vot preobrazovannyi massiv Y: '); for i:=1 to n do write (Y[i]:6:2,' ');{вывод элементов преобразованного массива} readln; end.