1.
var
k, sum, n, i: integer;
A: array of integer;
begin
writeln(Введите размерность массива: );
readln(n);
SetLength(A, n);
writeln(Введите K: );
readln(k);
writeln(Введите , n, элементов массива :);
for i := 0 to n - 1 do
begin
readln(A[i]);
if A[i] mod k = 0 then sum := sum + A[i];
end;
writeln(Результат: , sum);
end.
2.
var
c, k, n, i: integer;
B, A: array of integer;
begin
k := 1;
writeln(Введите размерность массива: );
readln(n);
SetLength(A, n + 1);
writeln(Введите , n, элементов массива :);
for i := 1 to n do
begin
readln(A[i]);
if A[i] = 0 then
begin
inc(c);
SetLength(B, c + 1);
B[k] := i;
inc(k)
end;
end;
writeln(Позиции нулевых элементов: );
for i := 1 to c do write(B[i]:3);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.