Линейный алгоритм
Составьте программу для решения следующей задачи.

Введите с клавиатуры 5 чисел. Вычислите и выведите на экран среднее арифметическое этих чисел. Что можно сказать о значении переменной до выполнения команды присваивания?

uses crt;var a,b,c,d,e,f:integer;beginclrscr;write('Write first number:'); readln(a); writeln('a=',a);write('Write second number:'); readln(b); writeln('b=',b);write('Write third number:'); readln(c); writeln('c=',c);write('Write four number:'); readln(d);writeln('d=',d);write('Write five number:'); readln(e);writeln('e=',e);f:=(a+b+c+d+e)/5;writeln('f=',f);readkey;end.

uses crt;var a,b,c,d,e:integer; f:real;beginclrscr;write('Write first number:'); readln(a); writeln('a=',a);write('Write second number:'); readln(b); writeln('b=',b);write('Write third number:'); readln(c); writeln('c=',c);write('Write four number:'); readln(d);writeln('d=',d);write('Write five number:'); readln(e);writeln('e=',e);f:=(a+b+c+d+e)/5;writeln('f=',f);readkey;end.

вторая правильная

спасибо большое

нез