221. На¬пи¬ши¬те про¬грам¬му для ре¬ше¬ния сле¬ду-ю¬щей за¬да¬чи. Ка¬ме¬ра на¬блю¬де¬ния ре¬ги¬стри¬ру¬ет в ав¬то¬ма¬ти¬че¬ском ре¬жи¬ме ско¬рость про¬ез¬жа¬ю¬щих мимо неё ав¬то¬мо¬би¬лей, округ¬ляя зна¬че¬ния ско¬ро-сти до целых чисел. Не¬об¬хо¬ди¬мо опре¬де¬лить мини¬маль¬ную за¬ре¬ги¬стри¬ро¬ван¬ную ско¬рость всех ав¬то¬мо¬би¬лей. Про¬грам¬ма по¬лу¬ча¬ет на вход число про¬ехав¬ших ав¬то¬мо¬би¬лей N (1 =< N =< 30), затем ука¬зы¬ва¬ют¬ся их ско¬ро¬сти. Зна¬че¬ние ско¬ро¬сти не может быть мень¬ше 1 и боль¬ше 300.Про¬грам¬ма долж¬на вы¬ве-сти мини¬маль¬нуюско¬рость.

При¬мер ра¬бо¬ты про¬грам¬мы:
Вход¬ные дан-ные Вы¬ход¬ные дан-ные
4
74
69
63
96 63

Под блокнотом подразумевается стандартный Windows Notepad. Он прост как дважды два, и таким и задумывался. Предназначен для просмотра и возможно редактирования простых текстовых файлов(не документов, форматирование не изменяется), например .txt, .xml, .html и тд
Им можно открыть и посмотреть текстовое представление любого файла, хотя большие файлы он не откроет (зависнет или упадет) и может иметь проблемы с кодировками.
Имеет простейшие функции типа поиск, замена, переход. А так же открыть и сохранить файл.

Если часто приходится иметь дело с текстовыми файлами предназначеными в первую очередь для чтенье компьютером типа программных кодов, скриптов и тд, то рекомендуется использовать специализированные блокноты типа Notepad++, Sublime Text, Vim, Akelpad и тд

MSO Word предназначен для создания, просмотра, редактирования текстовых документов (не просто текстовых файлов) предназначеных в первую очередь для просмотра людьми. Потому очень много уделяется внимания форматированию текста, можно добавлять всякие рисунки, таблички и прочее и прочее
Можно редактировать и простые текстовые файлы, но это не удобно

Const n=15; 
var a:array[1..n] of integer;
i,s:integer; sr:real;
begin
Randomize;
writeln('Массив:');
for i:=1 to n do
 begin
 a[i]:=random(21);
 write(a[i]:3);
 end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
sr:=s/n;
writeln('Среднее арифметическое = ',sr:6:2);
writeln('Номера элементов, больших среднего арифметического:');
for i:=1 to n do
 if a[i]>sr then write(i:3);
writeln;
end.

Пример:
Массив:
  9 19 14 8 7 10 5 10 6 14 15 2 11 17 13
Среднее арифметическое = 10.67
Номера элементов, больших среднего арифметического:
  2 3 10 11 13 14 15