1)
var
d, i: integer;
A: array[1..10] of integer;
begin
d := 1;
write('Введите элементы массива: ');
for i := 1 to 10 do read(A[i]);
for i := 1 to 10 do d := d * A[i];
writeln('Произведение элементов: ' + d);
end.
2)
var
d, i: integer;
A: array[1..10] of integer;
begin
d := 1;
randomize();
for i := 1 to 10 do A[i] := random(1,10);
for i := 1 to 10 do begin
if A[i] mod 2 = 0 then d := d * A[i];
end;
writeln('Произведение элементов: ' + d);
end.
3)
var
d, i: integer;
A: array[1..10] of integer;
begin
d := 1;
randomize();
for i := 1 to 10 do A[i] := random(1,10);
for i := 1 to 10 do begin
if i mod 2 = 1 then d := d + A[i];
end;
writeln('Сумма элементов: ' + d);
end.
var j, a, b, n: integer;
label 1;
begin
1: randomize;
a: = random (9);
b: = random (9);
write (a, '*', b, '=');
read (n);
if n = (a * b) then writeln ('відповідь вірний! ')
else writeln ('відповідь неправильний! ');
writeln ('продовжуватимеш? ');
writeln ('якщо так то натисни 1');
writeln ('якщо немає то натисни 2');
read (j);
if j = 1 then goto 1;
if j = 2 then writeln ('до побачення! ');
end.
начебто так, точно не пам'ятаю.
s:= s + i = 4 + 8 = 12
9s:= s + i = 12 + 9 = 21
10s:= s + i = 21 + 10 = 31
11s:= s + i = 31 + 11 = 42
ответ: s:= 42.