Question

1 - Определите значение переменной с после выполнения следующего фрагмента программы: а:=6 b:=13 a:=b-a*2 if a>b then c := a+b else c:=b-a 2 - Исправьте программу , чтобы она стала рабочей begin s:=0 k:=1 white k < 11 do s:=s+k k:=k+1 write end 3 - В программе описан одномерный целочисленный массив А с индексами от 0 до 10. Ниже представлен фрагмент этой программы, в котором значения элементов массива сначала задаются , а затем меняются . for i:=0 to 10 do A[i]:=2+i for i:=0 to 4 do begin A[i]:=A[10-i]-1 A[10-i]:=A[i]+3 end Чему будут равны элементы этого массива? 4 - Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от –100 до 100 включительно. Напишите программу позволяющий найти и вывести минимальное значение среди положительных элементов массива кратных 5 . Если в исходном массиве нет элемента ,значение которого положительно делится на 5 , то вывести сообщение "Не найдено".

Answer 1

Задача 1: 1

Задача 2:

begin

s:=0; k:=1;

while k < 11 do  begin

s:=s+k; k:=k+1;

end;

write(s);

end.

Задача 3:

11 10 9 8 7 7 10 11 12 13 14

Задача 4:

const N = 20;

const MAX = 100;

const MIN = -100;

var A: array [1..N] of integer;

var i,s: integer;

begin

randomize();

s:=-1;

writeln('Исходный массив: ');

for i:=1 to N do

 begin

 A[i]:=random(MAX-MIN+1)+MIN;

 if (A[i]>0) and (A[i] mod 5 = 0) then

   begin

   if (s=-1) then s:=A[i]

   else if (A[i]<s) then s:=A[i];

   end;

 write(A[i],' ');

 end;

writeln();

if (s<>-1) then writeln('Минимальное значение среди положительных',

' элементов массива кратных 5: ',s)

else writeln('Не найдено');

end.

Answer 2

1 - После выполнения фрагмента программы:

plaintextCopy code
а := 6
b := 13
a := b - a * 2
if a > b then
    c := a + b
else
    c := b - a

Значение переменной a будет -13.

2 - Исправленная версия программы:

plaintextCopy code
begin
    s := 0;
    k := 1;
    while k < 11 do
    begin
        s := s + k;
        k := k + 1;
    end;
    write(s);
end.

3 - Циклы в данной программе меняют значения элементов массива. Исходные значения задаются как A[i] := 2 + i. После этого значения элементов массива меняются согласно второму циклу:

plaintextCopy code
A[0] := A[10] - 1  =>  A[0] := 12 - 1   =>  A[0] := 11
A[10] := A[0] + 3  =>  A[10] := 11 + 3  =>  A[10] := 14

A[1] := A[9] - 1   =>  A[1] := 13 - 1   =>  A[1] := 12
A[9] := A[1] + 3   =>  A[9] := 12 + 3   =>  A[9] := 15

... и так далее для остальных пар элементов.

Таким образом, значения элементов массива после выполнения фрагмента кода будут следующими:

plaintextCopy code
A[0] = 11
A[1] = 12
A[2] = 13
A[3] = 14
A[4] = 15
A[5] = 5
A[6] = 6
A[7] = 7
A[8] = 8
A[9] = 15
A[10] = 14

4 - Программа для поиска и вывода минимального значения среди положительных элементов массива, кратных 5:

plaintextCopy code
program FindMinPositiveMultipleOf5;

var
    arr: array[1..20] of integer;
    minVal: integer;
    found: boolean;

begin
    minVal := 101;  // Максимальное значение больше допустимого (100)
    found := false;
    
    // Ввод элементов массива
    for i := 1 to 20 do
    begin
        write('Введите элемент массива arr[', i, ']: ');
        readln(arr[i]);
    end;

    // Поиск и обновление минимального значения среди положительных элементов, кратных 5
    for i := 1 to 20 do
    begin
        if (arr[i] > 0) and (arr[i] mod 5 = 0) then
        begin
            found := true;
            if arr[i] < minVal then
                minVal := arr[i];
        end;
    end;

    // Вывод результата
    if found then
        writeln('Минимальное положительное значение, кратное 5: ', minVal)
    else
        writeln('Не найдено');

end.

Эта программа просит пользователя ввести 20 элементов массива, затем находит и выводит минимальное положительное значение среди элементов, кратных 5. Если такого элемента нет, выводится сообщение "Не найдено".