Впаскале сделать: дан массив из 20 элементов, созданный случайным образом, значения элементов которого находится в диапазоне [-20,20]. вывести в файл четные элементы массива. если таких чисел нет, то вывести сообщение об этом факте.
Var a:array[1..20] of integer; i, k:integer; fout:text; begin for i:=1 to 20 do a[i]:=20 - random(41); assign(fout, 'out.txt'); rewrite(fout); for i:=1 to 20 do if a[i] mod 2 = 0 then k:=k+1; if k <> 0 then for i:=1 to 20 do begin if a[i] mod 2 = 0 then write(fout, a[i], ','); end else write(fout, 'Четных элементов массиве нет.'); close(fout); end.
Под блокнотом подразумевается стандартный Windows Notepad. Он прост как дважды два, и таким и задумывался. Предназначен для просмотра и возможно редактирования простых текстовых файлов(не документов, форматирование не изменяется), например .txt, .xml, .html и тд Им можно открыть и посмотреть текстовое представление любого файла, хотя большие файлы он не откроет (зависнет или упадет) и может иметь проблемы с кодировками. Имеет простейшие функции типа поиск, замена, переход. А так же открыть и сохранить файл.
Если часто приходится иметь дело с текстовыми файлами предназначеными в первую очередь для чтенье компьютером типа программных кодов, скриптов и тд, то рекомендуется использовать специализированные блокноты типа Notepad++, Sublime Text, Vim, Akelpad и тд
MSO Word предназначен для создания, просмотра, редактирования текстовых документов (не просто текстовых файлов) предназначеных в первую очередь для просмотра людьми. Потому очень много уделяется внимания форматированию текста, можно добавлять всякие рисунки, таблички и прочее и прочее Можно редактировать и простые текстовые файлы, но это не удобно
i, k:integer;
fout:text;
begin
for i:=1 to 20 do
a[i]:=20 - random(41);
assign(fout, 'out.txt');
rewrite(fout);
for i:=1 to 20 do
if a[i] mod 2 = 0 then
k:=k+1;
if k <> 0 then
for i:=1 to 20 do begin
if a[i] mod 2 = 0 then
write(fout, a[i], ',');
end
else write(fout, 'Четных элементов массиве нет.');
close(fout);
end.