Pascal, бандиты гарри и ларри отдыхали на природе. решив пострелять, они выставили на бревно несколько банок из-под пива (не больше 10 гарри начал простреливать банки по порядку, начиная с самой левой, ларри — с самой правой. в какой-то момент получилось так, что они одновременно прострелили одну и ту же последнюю банку. гарри возмутился и сказал, что ларри должен ему кучу денег за то, что тот лишил его удовольствия прострелить несколько банок. в ответ ларри сказал, что гарри должен ему еще больше денег по тем же причинам. они стали спорить кто кому сколько должен, но никто из них не помнил сколько банок было в начале, а искать простреленные банки по всей округе было неохота. каждый из них помнили только, сколько банок прострелил он сам. определите по этим данным, сколько банок не прострелил гарри и сколько банок не прострелил ларри. заранее .

Если ты сдаешь эту на сайт acmu.ru или acmp.ru: var a, b: longint; begin assign(input, 'input.txt'); reset(input); assign(output, 'output.txt'); rewrite(output); read(a, b); write(b - 1, ' ', a - 1); end. а, если ты её просто учителю показываешь: var a, b: longint; begin write('сколько банок прострелил гарри? '); readln(a); write('сколько банок прострелил ларри? '); readln(b); writeln('гарри не прострелил ', b - 1, ' банок'); writeln('ларри не прострелил ', a - 1, ' банок'); end.

Решение

gekasa, Я не силен в дополнительных диагоналях) вот главную и побочную знаю. А дополнительная - это как?

Добавлено через 35 минут

gekasa, Вот для суммы главной и побочной, для остальных думаю поймешь или напиши (нарисуй) как выглядят дополнительные диагонали.

PascalВыделить код

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

program mas1;

const

nmax=100;

var

a: array[1..nmax,1..nmax] of integer;

n,i,j,sum,sum1: integer;

begin

randomize;

write('Ââåäèòå ðàçìåð ìàòðèöû n: ');

readln(n);

writeln('Ìàòðèöà:');

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=random(150)-50;

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

end;

writeln;

end;

sum:=0;

sum1:=0;

j:=1;

for i:=1 to n do

sum:=sum+a[i,i];

for i:=n downto 1 do

begin

sum1:=sum1+a[i,j];

j:=j+1;

end;

writeln('Ñóììà ãëàâíîé äèàãîíàëè: ',sum);

writeln('Ñóììà ïîáî÷íîé äèàãîíàëè: ',sum1);

writeln;

end.

0

Program pr; uses crt; var a: array[1..7] of real;       i: integer;       begin writeln('введите массив'); for i: =1 to 7 do readln(a[i]); for i: =1 to 7 do write(a[i],'|'); readln; end. ============================================ program pr; uses crt; var a: array[1..10] of integer;       i: integer;       begin writeln('введите массив'); for i: =1 to 10 do readln(a[i]); for i: =1 to 7 do begin if a[i] mod 2< > 0 then write(a[i],'|'); end; readln; end.