Question

Люди очень срочно решите пожалуйста задачу на Паскале: их 4 штуки! 1.дан массив тз N элементов. Есть ли в нем чётные элементы, которые кратны заданному числу K. 2. Дан массив из Nэлементов. Посчитать, сколько элементов массива равных минемальному. 3. Сформировать массив из Nэлементов: 10 12 16 22 30 40. 4. Дан массив из Nэлементов. Перемножить минемальные элементы на 2. Heeelp!

Answer 1

Конечно, давайте решим каждую задачу по очереди. Я предоставлю примеры кода на языке программирования Pascal.

1. Есть ли в массиве чётные элементы, которые кратны заданному числу K: ```pascal program Task1; var N, K, i: Integer; arr: array of Integer; found: Boolean;

begin Write('Введите размер массива N: '); Readln(N);

SetLength(arr, N);

Write('Введите элементы массива через пробел: '); for i := 0 to N - 1 do Read(arr[i]);

Write('Введите число K: '); Readln(K);

found := False; for i := 0 to N - 1 do begin if (arr[i] mod 2 = 0) and (arr[i] mod K = 0) then begin found := True; Break; end; end;

if found then Writeln('В массиве есть чётные элементы, которые кратны ', K) else Writeln('В массиве нет чётных элементов, которые кратны ', K);

end. ```

2. Посчитать, сколько элементов массива равны минимальному: ```pascal program Task2; var N, i, min, count: Integer; arr: array of Integer;

begin Write('Введите размер массива N: '); Readln(N);

SetLength(arr, N);

Write('Введите элементы массива через пробел: '); for i := 0 to N - 1 do Read(arr[i]);

min := arr[0]; count := 1;

for i := 1 to N - 1 do begin if arr[i] = min then Inc(count) else if arr[i] < min then begin min := arr[i]; count := 1; end; end;

Writeln('Количество элементов массива, равных минимальному, равно ', count);

end. ```

3. Сформировать массив из N элементов: ```pascal program Task3; var N, i: Integer; arr: array of Integer;

begin Write('Введите размер массива N: '); Readln(N);

SetLength(arr, N);

arr[0] := 10; for i := 1 to N - 1 do arr[i] := arr[i - 1] + i * 2;

Write('Сформированный массив: '); for i := 0 to N - 1 do Write(arr[i], ' ');

end. ```

4. Перемножить минимальные элементы на 2: ```pascal program Task4; var N, i, minIndex: Integer; arr: array of Integer;

begin Write('Введите размер массива N: '); Readln(N);

SetLength(arr, N);

Write('Введите элементы массива через пробел: '); for i := 0 to N - 1 do Read(arr[i]);

minIndex := 0; for i := 1 to N - 1 do begin if arr[i] < arr[minIndex] then minIndex := i; end;

arr[minIndex] := arr[minIndex] * 2;

Write('Изменённый массив: '); for i := 0 to N - 1 do Write(arr[i], ' ');

end. ```

Надеюсь, эти примеры помогут вам решить ваши задачи!