Предположим, вы имеете внешний жесткий диск объемом 3 Тб. Сколько дисков формата Blu-Ray он может заменить, если объем одного диска равен 25 Гб?

1

2

3

4

10

11

12

13

14

20

21

22

23

24

30

31

32

33

34

40

41

42

43

44

50

51

52

53

54

60

61

62

63

64

70

71

72

73

74

80

81

82

83

84

90

91

92

93

94

100

101

102

103

104

110

111

112

113

114

120

121

122

123

124

130

131

132

133

134

140

141

142

143

144

150

151

152

153

154

160

161

162

163

164

170

171

172

173

174

180

181

182

183

184

190

191

192

193

194

200

201

202

203

204

210

211

212

213

214

220

221

222

223

224

230

231

232

233

234

240

241

242

243

244

250

251

252

253

254

260

261

262

263

264

270

271

272

273

274

280

281

282

283

284

290

291

292

293

294

300

301

302

303

304

310

311

312

313

314

320

321

322

323

324

330

331

332

333

334

340

341

342

343

344

350

351

352

353

354

360

361

362

363

364

370

371

372

373

374

380

381

382

383

384

390

391

392

393

394

400

401

402

403

404

410

411

412

413

414

420

421

422

423

424

430

431

432

433

434

440

441

442

443

444

450

451

452

453

454

460

461

462

463

464

470

471

472

473

474

480

481

482

483

484

490

491

492

493

494

500

Объяснение:

1.

program z1;

const n=5;

var a:array [1..n,1..n] of integer;

i,j,s:integer;

begin

writeln ('Квадратная матрица:');

for i:= 1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=Random(10);

write(a[i,j]:3);

if i=j then s:=s+a[i,j]

end;

writeln;

end;

writeln('Среднее арифметическое элементов расположенных на главной диагонали: ',s/n)

end.

2.

program z2;

const n=5;

var a:array [1..n,1..n] of integer;

i,j,s,sp:integer;

begin

writeln ('Квадратная матрица:');

for i:= 1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=Random(21)-10;

write(a[i,j]:5);

if i=j then s:=s+a[i,j]

end;

writeln;

end;

for i:= 1 to n do

for j:=1 to n do

if (a[i,j]>0) and (a[i,j]>s/n)then sp:=sp+a[i,j];

writeln('Сумма положительных элементов, превышаюших по величине среднее арифметическое всех элементов расположенных на главной диагонали: ',sp)

end.

3.

program z3;

const n=5;

var a:array [1..n,1..n] of integer;

i,j,m,k:integer;

begin

writeln ('Двумерный массив:');

for i:= 1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=Random(21)-10;

write(a[i,j]:5)

end;

writeln;

end;

m:=a[1,1];

for i:= 1 to n do

for j:=1 to n do

if a[i,j]<m then m:=a[i,j];

writeln ('Минимальный элемент ',m);

k:=0;

for i:= 1 to n do

for j:=1 to n do

if a[i,j]=m then

begin

writeln('Индексы [',i,',',j,']');

k:=k+1;

end;

writeln ('Количество минимальных элементов ',k)

end.