Program lol;
Const n=6;
var a:array [1..n] of integer;
i,s:integer;
begin
begin
for i:=1 to n do
readln (a[i]);
end;
s:=a[1]+a[2];
for i:=2 to n do
begin
if s>(a[i]+a[i-1]) then
s:=a[i]+a[i-1];
end;
writeln (s);
end.
// PascalABC.NET 3.0, сборка 1128
begin
var a:=ArrRandom(30,-10,20).Println(',');
Writeln('Сумма элементов, больших 10, равна ',
a.Where(x->x>10).Sum);
end.
<u><em>Тестовое решение:</em></u>
4,-8,-7,10,13,0,11,-6,-9,-1,-7,-6,2,19,4,-10,-6,9,4,13,-6,20,-4,15,-3,-2,-7,3,16,18
Сумма элементов, больших 10, равна 125
ODT - текстовый документ OpenOffice
GIF - графический формат
TXT - обычный текстовый формат
JPEG - графический формат
DOC - текстовый документ Microsoft Office Word
PDF - формат Adobe Systems для обмена документами, в том числе и текстовыми.
RTF - формат для обмена текстовыми документами, созданными совместно Microsoft и Adobe
HTML - файл текстового формата, который является на самом деле программой на языке HTML.
EXE - исполняемый файл (программа в машинном коде)
BMP - графический формат.
<u>Вопрос задан не совсем корректно.</u>
Если "текстовый файл" - это файл, который ХРАНИТСЯ в текстовом виде, может быть открыт и прочитан в любом текстовом редакторе или просмотрщике, например, в "Блокноте", то подходят TXT и HTML.
Если "текстовый файл" - это файл, который МОЖЕТ СОДЕРЖАТЬ текстовый документ, то подходят ODT, TXT, DOC, PDF, RTF, HTML.
===== PascalABC.NET =====
begin
var (a, b) := ReadReal2('Введите коэффициенты a и b:');
Write('Корень уравнения равен ', -b / a:0:3)
end.