// PascalABC.NET 3.2, сборка 1382 от 06.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк (столбцов) в массиве:'); Writeln('*** Исходный массив [',n,',',n,'] ***'); var a:=MatrRandom(n,n,-10,10); a.Println(4); Writeln(5*a.ColCount*'-'); var k,l:integer; Write('Введите L,K: '); Read(l,k); var lim:=a[l-1,k-1]; var s:=a.Rows.SelectMany(x->x).Where(x->x<lim).Sum; Writeln('Искомая сумма равна ',s) end.
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк (столбцов) в массиве:');
Writeln('*** Исходный массив [',n,',',n,'] ***');
var a:=MatrRandom(n,n,-10,10);
a.Println(4); Writeln(5*a.ColCount*'-');
var k,l:integer;
Write('Введите L,K: '); Read(l,k);
var lim:=a[l-1,k-1];
var s:=a.Rows.SelectMany(x->x).Where(x->x<lim).Sum;
Writeln('Искомая сумма равна ',s)
end.
Пример
Количество строк (столбцов) в массиве: 6
*** Исходный массив [6,6] ***
-4 -8 -7 -3 -6 -4
2 -9 1 9 -6 6
-9 -2 -8 -3 -1 -4
-1 -9 -3 -7 3 -3
5 9 -6 8 -1 -10
-1 -1 -5 -8 -9 4
Введите L,K: 2 3
Искомая сумма равна -138
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(135,150,300); a.Println;
end.
Пример
259 236 185 153 260 288 245 189 168 257 243 279 191 162 253 286 286 254 256 175 170 295 195 299 201 183 291 195 165 266 280 195 194 207 193 274 243 191 151 211 264 265 229 169 225 240 298 232 162 159 252 254 252 236 269 265 191 187 253 226 297 200 173 202 278 198 235 284 269 279 193 245 252 195 211 205 216 176 223 261 185 209 182 156 163 175 243 258 238 229 233 205 238 225 214 214 242 176 192 177 154 163 264 183 267 157 152 207 174 214 199 164 265 292 191 238 167 167 188 252 255 278 196 190 196 289 156 176 281 298 264 189 285 196 256