Ответ:
var
A: array [1..10] of integer;
i : integer;
temp : integer;
begin
Randomize;
for i := 1 to 10 do
begin
A[i] := random(30);
Write(A[i], ' ');
end;
Writeln;
i := 1;
while i < 10 do
begin
temp := A[i];
A[i] := A[i + 1];
A[i + 1] := temp;
inc(i, 2);
end;
Writeln('Новый массив: ');
for i := 1 to 10 do Write(A[i], ' ');
end.
Объяснение:
Ответ: Программа делает деление первого на втрого и выводит его остаток
Пример:
<em /><em /><em>1 / 2 = 0 (остаток 1)
</em><em>10 / 5 = 2 (остаток 0)
</em><em>25 / 10 = 2 (остаток 5)</em>
<em>31 / 3 = 10 (остаток 1)</em>
<em>33 / 22 = 1 (остаток 11)</em>
var A:array[1..10] of integer;
i:integer;
s: integer;
begin
writeln('Массив А:');
s:=0;
for i:=1 to 10 do
begin
write('Введите ',i,'-e число ');
readln(A[i]);
if A[i] <> 0 then s:=s+1;
end;
write('Строка чисел: ');
for i:=1 to 10 do
begin
write(a[i],' ');
end;
writeln();
writeln('Сумма элементов, не равных нулю = ',s);
end.
Ответ вроде S= 2
Так как нет продолжения задания на подобии s*k
S=0+(2*1) = 2
K=1+4=5
сама только сделала. вот решила помочь