Есть ответ 👍

Вфайле input.txt имеются следующие записи: 6 18 23 7 13 27 33. нужно составить программу,которая определяет среднее арифметическое чисел файле input.txt. и записывает ответ файл output.txt. первое число файле input.txt указывать на количество чисел, следующих за ним. т.е(нужно 18+23+7+13+27+33 поделить на 6)

112
122
Посмотреть ответы 2

Ответы на вопрос:


// pascalabc.net 3.2, сборка 1439 от 09.05.2017 // внимание! если программа не работает, обновите версию! begin   writealltext('output.txt',       readalltext('input.txt').tointegers.skip(1).average.tostring(4)) end.
g0osokin
4,4(89 оценок)

const k=10;

var a: array[1..k] of integer;

n,m,i: integer;

begin

// 1

write('n, m: ');

readln(n,m);

for i: =1 to k do

begin

a[i]: =random(m-n+1)+n;

write(a[i],' ');

end;

writeln;

// 2

for i: =1 to k do

begin

a[i]: =2*i+1;

write(a[i],' ');

end;

writeln;

// 3

a[1]: =1; a[2]: =1;

write(a[1],' ',a[2],' ');

for i: =3 to k do

begin

a[i]: =a[i-2]+a[i-1];

write(a[i],' ');

end;

writeln;

end.

пример:

n, m: 5 15

5 6 11 8 6 14 8 7 9 10  

3 5 7 9 11 13 15 17 19 21  

1 1 2 3 5 8 13 21 34 55

Популярно: Информатика