Var ma:array[1..n,1..m] of real; ar:array[1..n] of real; i,j:integer; s:real; begin randomize; s:=0; writeln('Matrix:'); for i:=1 to n do begin for j:=1 to m do begin ma[i,j]:=random(10); write(ma[i,j]:4); s:=s+ma[i,j]; end; ar[i]:=s; s:=0; writeln; end; writeln('Res:'); for i:=1 to n do writeln(i,':',ar[i]); end.
//2 Var se:set of char; s:string; i,r1,r2:integer; begin se:=['а','е','у','о']; readln(s); s:=s.Trim; i:=1; while i<length(s) do if (s[i]=' ') and (s[i+1]=' ') then delete(s,i+1,1) else inc(i); var ars:=s.Split; for i:=1 to length(s) do begin if ((ordansi(lowcase(s[i]))>=65) and (ordansi(lowcase(s[i]))<=90)) or ((ordansi(lowcase(s[i]))>=97) and (ordansi(lowcase(s[i]))<=122)) or ((ordansi(lowcase(s[i]))>=128) and (ordansi(lowcase(s[i]))<=175)) or ((ordansi(lowcase(s[i]))>=224) and (ordansi(lowcase(s[i]))<=243)) then inc(r1); if lowcase(s[i]) in se then inc(r2); end; writeln('Количество букв:',r1); writeln('Количество слов:',ars.Length); writeln('Количество гласных из множества:',r2); end.
Пример ввода: Просто текст Пример вывода: Количество букв:11 Количество слов:2 Количество гласных из множества:3
int max_cost(const vector<int>& cost, int day, int length) { if (day + 1 < length) length = day + 1; if (saved_rec[make_pair(day, length)] != 0) return saved_rec[make_pair(day, length)];
int tmp_cost, max = cost[day] * length, max_i = length;
if (day != 0) for (int i = 0; i <= length; ++i) {
tmp_cost = max_cost(cost, day - 1, length-i) + cost[day] * i; if (tmp_cost > max) { max = tmp_cost; max_i = i; } }
