Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

ПОМОГИТЕ, ПОЖАЛУЙСТА, СОСТАВИТЬ ПРОГРАММУ, ВЫЧИСЛЯЮЩУЮ СРЕДНЕЕ АРИФМЕТИЧЕСКОЕ ПЕРВОЙ И ПОСЛЕДНЕЙ СТРОКИ.

Ответ оставил Гость

Var ar:array[1..3] of integer;
i:integer;
r:real;
begin;
for i:=1 to 3 do
readln(ar[i]);
r:=(ar[1]+ar[3])/2;
writeln(r);
end.