Var A:Array[1..nmax,1..nmax] of integer; n,m,i,j,sumN,sumV:integer;B:Array[1..nmax] of integer;beginwrite('Введите число n');readln(n);for i:=1 to n do beginfor j:=1 to n do beginm:= random(20)-10;A[i,j]:= m;write(A[i,j]:4);end;writeln;end;
writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif A[i,j]> 0 then beginwrite(A[i,j]:4); B[i]:= B[i] + A[i,j];end;end;writeln;end;writeln;writeln;for i:=1 to n dowriteln(B[i]:4);<span>end.</span>
100
101
110
111
---------CУММА :
10110 <-- ответ
<em>// PascalABC.NET 3.2, сборка 1377 от 19.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Строка:'); // общая часть
// #1
var c1,c2:char;
Write('Введите БЕЗ ПРОБЕЛА исходный и заменяющий символы: ');
Readln(c1,c2);
s:=s.Replace(c1,c2); s.Println;
// #2
s:=s.Where(c->not (c in ['0'..'9'])).JoinIntoString; s.Println;
// #3
var k:=ReadInteger('k=');
s:=s.Batch(k).SelectMany(c->c+NewLine).JoinIntoString(''); s.Println
end.
<u>Пример</u>
Строка: Площадь Чёрного моря 422000 кв.км, Наибольшая глубина 2210 м, средняя — 1240 м.
Введите БЕЗ ПРОБЕЛА исходный и заменяющий символы: гЪ
Площадь ЧёрноЪо моря 422000 кв.км, Наибольшая Ълубина 2210 м, средняя — 1240 м.
Площадь ЧёрноЪо моря кв.км, Наибольшая Ълубина м, средняя — м.
k= 35
Площадь ЧёрноЪо моря кв.км, Наибол
ьшая Ълубина м, средняя — м.
Программы и блок схемы к ним на скринах, надеюсь всё понятно
PS-------------------------------------------------------------------------------------------
Блок схемы сделаны по устаревшему ГОСТу, но имеют место быть,
Abs - это обозначение модуля в Pascal.