Нееет, ты что!!! Вирусы только в электронных устройствах! но есть такая болезнь не помню как называется..
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.
1)
var
a:array[1..16] of integer;
i,k,s:integer;
begin
randomize;
For i:= 1 to 16 do
begin
a[i]:= -30+random(61);
write(a[i], ' ');
end;
For i:= 1 to 16 do
if a[i] < 0 then k:= k+1;
Writeln;
Writeln(k);
end.
Пример:
-21 4 -11 30 -16 -7 26 -14 -20 10 -18 8 -26 -13 -20 -15
11
2)
Изменить условие "if a[i] < 0 then k:= k+1;" на "if a[i] > 0 then s:= s +a[i];"
и "writeln(k);" на "Writeln(s);"
Экономия ресурсов...12 мв электронного носителя-это 10 м высоты листов формата А4)))