Блок схема во вложении.
Только сразу после элемента "начало" еще нужен блок прямоугольный с N:=20
1.44 *1024 = 1474.56 Кб * 1024 = 1509949,44 байт
1509949,44 байт - 80% = 301989,88 байт
301989,88 байт можно ещё записать
Те́кстовый проце́ссор — компьютерная программа, используемая для написания и модификации документов, компоновки макета текста и предварительного просмотра документов в том виде, в котором они будут напечатаны (свойство, известное какWYSIWYG)[1].
Современные текстовые процессоры, помимо форматирования шрифтов и абзацев и проверки орфографии, включают возможности, ранее присущие лишь настольным издательским системам, в том числе создание таблиц и вставку графических изображений[1].
Наиболее известными примерами текстовых процессоров являются Microsoft Word и OpenOffice.org Writer.
Текстовыми процессорами в 1970-е — 1980-е годы называли предназначенные для набора и печати текстов машины индивидуального и офисного использования, состоящие из клавиатуры, встроенного компьютера для простейшего редактирования текста, а также электрического печатного устройства. Позднее наименование «текстовый процессор» стало использоваться для компьютерных программ, предназначенных для аналогичного использования.
Машина — текстовый процессор Brother WP-1400D, 1994 год
Программы для работы с текстами можно разделить на текстовые редакторы, текстовые процессоры и издательские системы.
Содержание <span> [убрать] </span><span><span>1Известные текстовые процессоры</span><span>2См. также</span><span>3Примечания</span><span>4<span>Ссылки
</span></span></span>
program raf105;
const
n= 4; //Размер матрицы (кол-во и длинна строк). Можно менять
var
a:array[1..n,1..n] of integer;
asum:array[1..n] of integer;
i,j,k,sum,kolsum: integer;
x: boolean;
begin
write('Введите число k (не больше ',n,'): ');
readln(k);
for i:=1 to n do
begin
writeln;
writeln('Введите ',n,' чис. ',i,' стр.');
for j:=1 to n do
readln(a[i,j]);
end;
writeln;
writeln('Суммы элементов тех строк, в которых первые ',k,' элем. положительные');
for i:=1 to n do
begin
x:= true;
sum:= 0;
for j:=1 to k do
begin
if x and (a[i,j] <= 0)
then x:= false;
end;
if x
then
begin
for j:=1 to n do
sum+= a[i,j];
kolsum+= 1;
asum[kolsum]:= sum;
writeln(asum[kolsum]);
end;
end;
end.