Дано чотири числа. Знайти суму тих, які кратні 3, 4 та 5 одночасно?

a)

1. 5

2. 10

3. 15

4. 20

5. 25

6. 30

7. 35

8. 40

б)

1.  -1

2.  2

3.  1

4.  4

5.  3

6.  6

7.  5

8.  8

Объяснение:

a) for i:=1 to 8 do a[i]:=i*5 - элемент равен значению индекса элемента (i) умноженного на 5

i = 1

a[1] = 1 * 5 = 5

i = 2

a[2] = 2 * 5 = 10

i = 3

a[3] = 3 * 5 = 15

i = 4

a[4] = 4 * 5 = 20

i = 5

a[5] = 5 * 5 = 25

i = 6

a[6] = 6 * 5 = 30

i = 7

a[7] = 7 * 5 = 35

i = 8

a[8] = 8 * 5 = 40

б) for i:=1 to 8 do  if i mod 2=0 then a[i]:=i else a[i]:=i-2 - если индекс элемента чётный, то элемент равен своему индексу, иначе (индекс элемента нечётный) элемент равен индекс минус 2

i = 1

1 mod 2 = 0   (НЕТ)

a[1] = 1 - 2 = -1

i = 2

2 mod 2 = 0   (ДА)

a[2] = 2

i = 3

3 mod 2 = 0   (НЕТ)

a[3] = 3 - 2 = 1

i = 4

4 mod 2 = 0   (ДА)

a[4] = 4

i = 5

5 mod 2 = 0   (НЕТ)

a[5] = 5 - 2 = 3

i = 6

6 mod 2 = 0   (ДА)

a[6] = 6

i = 7

7 mod 2 = 0   (НЕТ)

a[7] = 7 - 2 = 5

i = 8

8 mod 2 = 0   (ДА)

a[8] = 8

Program yeah;const N=15;const M=15;var A:array [1..N,1..M] of integer;i,j,b,c,x,y:integer;beginrandomize;write('матрица: ');writeln;for i:=1 to N do begin   for j:=1 to M do beginA[i,j]:=random(100);write(A[i,j]:3);end;writeln;end;c:=1;while c<16 do beginfor i:=1 to N do begin   for j:=1 to M do beginb:=A[1,c];end;end;x:=x+b;c:=c+1;end;writeln('сумма первой строчки: ',x);c:=1;while c<16 do beginfor i:=1 to N do begin   for j:=1 to M do beginb:=A[15,c];end;end;y:=y+b;c:=c+1;end;writeln('сумма последней строчки: ',y);x:=x+y;writeln('общая сумма: ',x);end.