Program co;
var
i, n, t, c: integer;
begin
c := 0;
readln(n);
for i := 1 to n do
begin
readln(t);
if (t mod 6 = 0) and (t mod 10 = 4) then
c := c + 1;
end;
writeln('чисел: ', c);
end.
Начало
S=0, Y=0, X=10
Пока Х>0 (истина X=10)
S=T[0,2-(10 mod 3)] это элемент T[0,1] то есть 1
Y=0*3 + 1 = 1
X = 10 div 3 = 3
Пока Х>0 (истина X=3)
S = T[1,2-0] = 1
Y = 4
X = 1
Пока Х>0 (истина X=1)
S = T[1, 2-1] = 0
Y = 4*3 =12
X=0
Выход из цикла
Y=12
Старался не ошибиться, но на 100% не уверен
В файле код программы. Вводите X, выбираете функцию для которой искать (<em> что бы выбрать функцию нажмите от цифру 1 до 4 и Enter</em>) Y и программа выводит результат вычислений.
Если что, могу написать код для каждой функции отдельно, но этот проще.
Const n=10;
Var a:array[1..n] of integer;
i,k,j:integer;
Begin
Randomize;
For i:=1 to n do
Begin
A[i]:=Random(10);
Write(a[i],' ');
end;
Writeln;
For i:=1 to n do
Begin
If a[i] mod 3=0 then
Write(a[i],' ');
end;
for i:=1 to n-1 do
for j:=1 to n-i do
begin
if (a[j] > a[j+1]) then
begin
k:= a[j];
a[j] := a[j+1];
a[j+1] := k;
end;
end;
writeln;
for i:=1 to n do
write(a[i],' ');
readln;
<span> end.</span>
Var
a:array[1..20] of integer;
i,n,min,max,s:integer;
begin
randomize;
s:=0;
writeln ('Введи кол-во элементов в массиве');
readln(n);
for i:=1 to n do
a[i]:=random(35)-10;
for i:=1 to n do
if i mod 2 = 0 then writeln ('a[',i,']=',a[i]);
for i:=1 to n do
if i mod 2 >0 then writeln ('a[',i,']=',a[i]);
for i:=1 to n do if (a[i] mod 3 = 0) or (a[i] mod 5 = 0) then s:=s+a[i];
writeln ('Сумма членов кратных 3 или 5 = ',s);
min:=a[1];
max:=a[1];
for i:=2 to n do begin
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
writeln ('Максимум=',max);
writeln('Минимум=',min);<span>
end.</span>
